麻烦慕友告知word里面表示节数的函数？

Question

情况是这样，写了个宏。想对每一节都进行一种处理，用for循环。但是不知道i，也就是该文档的节数是多少。程序部分如下：End IfDim i As IntegerActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeaderFor i = 1 To 20Selection.PasteActiveWindow.ActivePane.View.NextHeaderFooterNext唉，自问自答好了，section表示节数~~

Answer 1

End If
Dim i As Integer
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
For i = 1 To 20
Selection.Paste
ActiveWindow.ActivePane.View.NextHeaderFooter
Next

Answer 2

ActiveDocument.Sections.Count