copy word doc footer to excel using vba

Question

Попытка получить текст нижнего колонтитула в документе MS_Word с макросом excel и вставить его в лист excel. этот код VBA работает в MS_WORD, но не в макросе MS_EXCEL. Я проверил и количество секций = 1 в документе.

Dim wdDoc As Object 
Dim h As Object 'Word.HeaderFooter 
Dim docver As String 'Paste this to excel 

Set wdDoc = GetObject("D:docname.docx") 

With wdDoc 

    For Each h In .Sections 

     docver = h.Footers(wdHeaderFooterPrimary).Range.Text 

    Next 

End With 

Answer 1

Я смог использовать «окно просмотра» под видом проекта VBA, чтобы определить структуру синтаксиса. правильный синтаксис выглядит следующим образом:

Для каждого ч В .Sections.Item.Footers

docver = h.Footers.Item(1).Range.Text 

Следующая