在每页之后在Word中插入空白页

Question

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

我知道if(explode(dirname($url1),$url1)[1] != "/5-mobile") { $url1_after_preg_replace = dirname($url1); } 对象有一个插入分页符的方法，但是如何获取正确的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

正如你所看到的，从最后一页开始，我将倒退。那是因为如果你从第一页开始，在插入空白之后如何知道下一页的位置？ ; - ）