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

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