Question

word vba 如何得到每一节每一页的页脚内容

如一个word文档有三个节，页脚内容如下：
第一节 第1页
第二节 第1页
第二节 第2页
第二节 第3页
第三节 第1页
如何通过VBA来获取这些页脚信息？
Private Sub CommandButton1_Click()
Dim p As Integer
Dim i As Integer
Dim nPageC As Integer

nPageC = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
For i = 1 To nPageC
ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i).Select
p = Selection.Information(wdActiveEndPageNumber) '当前页码
MsgBox ActiveDocument.Sections(SectionNumber(i)).Footers(wdHeaderFooterPrimary).Range.Text

Next

End Sub
End Function

Answer 1

每一节在字符的最后面插入页面布局”下一页“分节符，然后双击页脚，打开页脚，断开”链接到前一条页眉“然后随便修改页脚都不会影响前一节的页脚。