Excel VBA按钮将WorkSheet复制到新Word文档

的实现可以通过以下步骤完成：

首先，在Excel中打开Visual Basic编辑器。可以通过按下Alt + F11快捷键或在“开发”选项卡中点击“Visual Basic”按钮来打开。
在Visual Basic编辑器中，找到并双击要添加按钮的工作表。这将打开该工作表的代码窗口。
在代码窗口中，输入以下VBA代码：

Sub CopySheetToWord()
    Dim ws As Worksheet
    Dim wdApp As Object
    Dim wdDoc As Object
    
    ' 创建一个新的Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 可见性设置为True，以便在复制完成后查看Word文档
    
    ' 创建一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 设置要复制的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 将"Sheet1"替换为要复制的工作表名称
    
    ' 将工作表的内容复制到新的Word文档
    ws.Copy ' 复制工作表
    wdApp.Selection.Paste ' 粘贴到Word文档
    
    ' 清理对象
    Set ws = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

请注意，上述代码中的Sheet1是要复制的工作表的名称，你可以根据实际情况将其替换为你想要复制的工作表的名称。