如何在VBA中获取页面标题而不是部分标题

Question

我正在努力从具有数百页的Word文档中获取页眉， 它具有不同的标题

我的代码：

pageHeader = wdDoc.Sections(pageNumber).Headers(1).Range.Text

此代码获取Section的标题，但不获取页面的特殊标题。因此，标题可能会不正确。

我唯一的输入是pageNumber

上下文：我正在将word文档导入excel，每个单词页面都有表格，这些表格与它们的唯一编号相关联，显然放在每个页面的标题中，因此不同的页面可以具有不同的标题

Answer 1

尝试以下方法：

wdDoc.Range.GoTo(What:=wdGoToPage, Name:=i).Sections.First.Headers(wdHeaderFooterPrimary).Range.Text

其中i是页码。

注意：：以上代码假设您使用的是早期绑定。对于后期绑定，请使用以下内容：

wdDoc.Range.GoTo(1, i).Sections.First.Headers(1).Range.Text