Question

我是新来的，所以要温柔......哈哈

我已经制作了一份文件，并将其分为章节（章节），并将每个部分的页面编号如下

1-1 of 9
2-1 of 6 等

我使用奇怪的分页符将我的部分的第一页放在我的首选位置。当然，在正确的情况下使用奇数/偶数分页符将导致在该部分结尾处出现非打印空白页面，这当然是应该发生的事情。问题是，在这些情况下，我的页码最终结果为例如，13的2-1，但13是非打印空白页，因此最后的打印页面是13的2-12。我已经尝试过.goto到那个页面，但显然它不允许你.goto那页。我减少了我的代码，只是将页数输出到msgbox，以防止任何辅助废话妨碍这一点。这是：

Dim i, x

Dim FooterPages As Integer

Dim Sect As Integer

With ActiveDocument

    For i = 1 To 10

        'Footer page numbers
        ActiveDocument.ActiveWindow.Selection.GoTo What:=wdGoToSection, Count:=i + 2
        Sect = .ActiveWindow.Selection.Information(wdActiveEndSectionNumber)

        FooterPages = .Sections(Sect).Range.Information(3) - .Sections(Sect - 1).Range.Information(3)
        MsgBox FooterPages

    Next i

End With

我真的很感激一些代码的帮助来检测最后一页，所以我可以从该部分的总页数中减去它。

提前致谢

奇数/偶数分节后，Word VBA检测空白页

0 个答案: