Question

您好我希望在excel 2010文档中编写一个按钮，该按钮将复制整个工作表并自动打开并粘贴到word文档中。

我一直在寻找帮助页面，并且有一些类似的功能，但它们太具体了，我无法让代码工作。

这是我正在使用的代码我的例子是说明一个范围，我可以这样做，或者只是将整个工作表（称为“outputCMCR”）复制到一个新的word文档中。当我运行此代码时，我得到一个编译错误，未定义用户定义的类型。

Sub button2_click()  

    Dim objWord As New Word.Application  
    'Copy the range Which you want to paste in a New Word Document  
    Range("A1:B10").Copy  

    With objWord  
        .Documents.Add  
        .Selection.Paste  
        .Visible = True  
    End With  

End Sub

感谢任何帮助表示赞赏。

Answer 1

好的我认为这里有2个问题

1-您是否引用了Microsoft Word 14.0 Object Library？为此，请单击Tools -> References（在VBA编辑器中）。向下滚动列表，直至看到 Microsoft Word 12.0 Object Library 或 Microsoft Word 14.0 Object Library （具体取决于计算机上安装的Office版本）并选择它。 早期和晚期绑定的Read this

2-你需要像下面的代码一样创建对象

Private Sub CommandButton1_Click()
    Dim objWord As Word.Application
    Range("A1:B10").Copy

    Set objWord = CreateObject("Word.Application.14")
    With objWord
        .Documents.Add
        .Visible = True
        .Selection.Paste
    End With
End Sub

创建一个按钮，将整个电子表格复制到新的Word文档中

1 个答案: