想从一个文档中复制东西到另一个文档,于是用了Range.Copy(),然后再用PasteAndFormat(WdRecoveryType.wdFormatOriginalFormatting)黏贴到相应位置,可是为什么有时候执行的时候可行,有的时候则会提示
此方法或属性无效,因为 剪贴板是空的或无效的
为什么呢??
难道是我RP太差了??

解决方案 »

  1.   

    复制的时候要注意一个点,如果多人使用时就会有问题。因为服务器的剪切板就只有一个,如果多个用户同时Range.Copy()了,那么最后一个COPY的才有效,进行粘贴的时候,只会粘上最后一个人的信息,所以往往就会有错。不知道楼主是不是这种情况
      

  2.   

    我是自己电脑上运行VS,我要利用range.copy()复制7张表至另一个word文档。那7张表是一张一张复制的,所以要range.copy()7次,我cope一次paste一次。
    有时候运行就完全没问题,有时候就说剪贴板没东西~~~
      

  3.   

    另外发现如果只用一次range.copy()再paste是可行的,第二次copy后再paste试就说剪贴板为空了!
    为什么呢??
      

  4.   

    天杀的,我重装了word之后就好了~~~~~~
    看来我早上人品太差了啊
      

  5.   

    抑郁,我也遇到同样的问题,找不到解决方案
      
        With mWord
            .Visible = True ' word窗口可见
            '.Activate
            .Documents.Open Filename:=dstFileName
                            
            ' 从excel表格中拷贝数据并粘贴到word表格中,通过标签定位
            For i = LBound(arrName) To UBound(arrName)
                'Application.Goto Reference:=arrName(i)
                'Selection.Copy
                srcSheet.Range(srcSheet.Names(arrName(i))).Copy
                
                .Selection.Goto What:=wdGoToBook, Name:=arrName(i)
                '.Selection.MoveDown Unit:=wdLine, Count:=1 ' 下移一行
                .Selection.PasteAndFormat (wdFormatPlainText)
            Next
        End With
      

  6.   

    和楼主一样的问题,也是从excel表中,拷贝若干张表格到word文档中,结果偶尔就会报这个错“此方法或属性无效,因为 剪贴板是空的或无效的”,找了很久,也找不到解决方案,快疯了!!!