Как получить заголовки документов Word в excel

Question

Я пытаюсь импортировать заголовки документа Word в таблицу Excel.

Слово Заголовки:

1 Заголовок 1

1.1 Заголовок 2

1.1.1 Заголовок 3

Электронная таблица будет иметь столбцы Заголовок 1, Заголовок 2, Заголовок 3

Answer 1

Прости, что в моем первом ответе была большая ошибка. Для создания словарного приложения вам не нужен объект приложения.

Правильный код смотрите ниже:

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 для проверки объектов с привязкой к последним. :)