如何将word文档标题变为excel

Question

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

Word Headings：

1标题1

1.1标题2

1.1.1标题3

电子表格将包含标题1，标题2，标题3

列

Answer 1

对不起，我的第一个回答中有一个很大的错误。您不需要应用程序对象来创建您的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

从那里你可以继续。使用locals窗口检查已绑定的绑定对象。 :)