Word 문서 제목을 Excel로 가져 오는 방법

Question

Word 문서의 제목을 Excel 스프레드 시트로 가져 오려고합니다.

말씀 제목 :

1 제목 1

1.1 3

제목, 3

스프레드 시트는 열, 제목 1 제목 2 것 제목이

1.1.1 제목

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 

거기에서 당신이 갈 수 있습니다. 지역 오브젝트 창을 사용하여 바인드 된 오브젝트를 검사하십시오. :)