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

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