使用VBA把excel里所有sheets按顺序一次性copy到Word文档（选定特定列）

Private Sub Workbook_Open()
Dim str As String
Dim a As Worksheet

 Set w = CreateObject("word.application")   ‘新建word文档
    w.Visible = True
    w.Documents.Add
    For Each s In Worksheets     ’循环遍历所有工作表

        s.[A:D].Copy      ‘选定部分列copy

        's.[A1].CurrentRegion.Copy     'copy所有列

        w.Selection.TypeParagraph     ‘空行
        w.Selection.TypeText ("sheet名： " & s.Name)        '填上sheet名
        w.Selection.Paste      ’粘贴到word
    Next

End Sub