将Word文档标题导入Excel

我正在尝试将word文档的标题导入excel电子表格

单词标题：

1标题1

1.1标题2

1.1.1标题3

电子表格将有标题1、标题2和标题3列

---

很抱歉，我的第一个答案中有一个很大的错误。创建word应用程序时不需要应用程序对象

正确的代码如下所示：

Option Explicit

Public Sub Test_ReadWordDocument()
    Dim WordApp     As Object
    Dim WordDoc     As Object
    Dim Para        As Object

    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open("...\TestReadWordDoc.docx")

    For Each Para In WordDoc.Paragraphs
        Debug.Print Para.Range.Text
    Next Para

End Sub

结果:

Heading1
Heading2
Heading3
Lore ipsum Lore ipsum 
Lore ipsum 
Lore ipsum 
Lore ipsum

从那里你可以继续。使用“局部变量”窗口检查后期绑定的对象。：）