在 Word 中每页后插入一个空白页

Question

我需要在 Word 文档中的每一页之后添加空白页，并通过 VBScript 或宏自动执行。

我知道Selection对象有一种插入分页符的方法，但如何获得正确的Selection对象？

或者是否有更好的非交互式方法来完成工作？

Answer 1

您可以使用宏录制器，在录制过程中点击“Ctrl+g”“转到”，选择页面和一个数字。 这将为您提供如何获取页面范围的起点。 基于此，以下代码将在每个现有页面之前插入一个空白页面，但这对于开始来说应该足够了，对吧？

Sub blanks()
Dim pag As Range, numPages As Long

numPages = ActiveDocument.ComputeStatistics(wdStatisticPages)

For i = numPages To 1 Step -1
    Set pag = ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i)
    pag.InsertBreak WdBreakType.wdPageBreak
Next i
End Sub

如您所见，我要倒退，从最后一页开始。 那是因为如果从第一页开始，插入空格后如何知道下一页在哪里？ ;-)