VBA宏-将表数据从Excel文件导出到Word，并为每个工作表创建一个部分

Question

我在VBA中使用宏将Excel中的数据导出到Word中。

Sub ExportToWord()
    Set obj = CreateObject("Word.Application")
    obj.Visible = True
    Set newobj = obj.Documents.Add

    For Each ws In ActiveWorkbook.Sheets
        ws.UsedRange.Copy
        newobj.ActiveWindow.Selection.PasteExcelTable False, False, False
        newobj.ActiveWindow.Selection.InsertBreak Type:=7
    Next
        newobj.ActiveWindow.Selection.TypeBackspace
        newobj.ActiveWindow.Selection.TypeBackspace

    obj.Activate
    newobj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\OLD\" & Split(ActiveWorkbook.Name, ".")(0)
End Sub

在Word中检索所有数据和表布局。 该过程会将每个工作表的usedRange复制到Word，并按每个工作表分页。

我想通过将工作表的名称放在每个工作表的复制/粘贴数据之前来更新此脚本。

你能告诉我怎么做吗？

---

更新代码后：

Sub export_workbook_to_word()
    Dim sheetName As String
    Set obj = CreateObject("Word.Application")
    obj.Visible = True
    Set newobj = obj.Documents.Add

    For Each ws In ActiveWorkbook.Sheets
        sheetName = ws.Name
        ws.UsedRange.Copy
        newobj.ActiveWindow.TypeText ws.Name
        newobj.ActiveWindow.Selection.PasteExcelTable False, False, False
        newobj.ActiveWindow.Selection.InsertBreak Type:=7

    Next
        newobj.ActiveWindow.Selection.TypeBackspace
        newobj.ActiveWindow.Selection.TypeBackspace

    obj.Activate
    newobj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0)

End Sub

我newobj.ActiveWindow.TypeText ws.Name错误消息： Object doesn't support this property or method在行newobj.ActiveWindow.TypeText ws.Name上Object doesn't support this property or method

请你帮助我好吗？

Answer 1

尝试将其添加到声明中：

    Dim sheetName as String

在For Each语句下面

    sheetName = ws.Name
    newobj.ActiveWindow.TypeText (sheetName)

Answer 2

事实上线

newobj.ActiveWindow.Selection.InsertBreak Type:=7

插入一个分页符：7对应于wdPageBreak。 我通过将7更改为2来插入下一页分节符（对应于wdSectionBreakNextPage）。

Word中的节没有名称。 我在表上方插入工作表的名称：

    newobj.ActiveWindow.Selection.TypeText sheetName
    newobj.ActiveWindow.Selection.Style = ActiveDocument.Styles(-2)
    newobj.ActiveWindow.Selection.TypeParagraph