vba 删掉word 空白页

在 VBA 中，可以使用以下代码来删除 Word 文档中的空白页：

Sub DeleteBlankPages()
    Dim i As Integer
    For i = ActiveDocument.Content.ComputeStatistics(wdStatisticPages) To 2 Step -1
        If Len(ActiveDocument.Range( _
          Start:=ActiveDocument.Content.Sections(i - 2).Range.End, _
          End:=ActiveDocument.Content.Sections(i - 1).Range.Start)) = 2 Then
            ActiveDocument.Content.Sections(i - 1).Range.Delete
        End If
    Next i
End Sub

这段代码将遍历 Word 文档中的每一页，并检查该页与前一页之间的文本是否为空。如果是空白页，则删除该页。

相关问题

word vba插入空白页

### 回答1：
您可以使用以下的 VBA 代码插入一个空白页到 Word 文档中：

Sub InsertBlankPage()
    '插入一个空白页到文档中
    Selection.InsertNewPage
End Sub

您可以将此代码复制到 Word 的 VBA 编辑器中，并将其保存在您的文档中。然后，您可以将其分配给一个按钮或菜单项，以便在需要时使用。

### 回答2：
在Word的VBA中插入空白页，你可以使用"Selection.InsertBreak"方法来实现。下面是一个简单的VBA代码示例：

Sub InsertBlankPage()
Selection.InsertBreak Type:=wdPageBreak
End Sub

以上代码会在当前光标位置插入一个空白页。"Type:=wdPageBreak"参数指定了插入的分页符类型为换页符，即插入一个空白页。

你可以将上述VBA代码复制到Word的宏编辑器中。方法如下：
1. 打开Word应用程序，然后按下"Alt+F11"组合键，打开宏编辑器。
2. 在左侧的"项目资源管理器"窗格中，选择你的文档（例如：Document1）。
3. 然后点击"插入"菜单，选择"模块"。
4. 在新插入的模块中，粘贴上述VBA代码。
5. 关闭宏编辑器。

要执行该宏，你可以按下"Alt+F8"组合键打开宏选择对话框，然后选择"InsertBlankPage"宏并点击"运行"按钮。

希望以上信息能帮助到你！

### 回答3：
在Word VBA中，可以使用`Documents.Add`方法来插入一个空白页面。下面是一个示例的代码：

Sub InsertBlankPage()
    Dim doc As Document
    Set doc = ActiveDocument ' 获取当前活动文档
    
    doc.Activate ' 激活文档
    
    doc.Content.InsertBreak Type:=wdPageBreak ' 在光标位置插入一个分页符
    
    Set doc = Nothing ' 释放对文档对象的引用
End Sub

上述代码首先声明了一个`doc`对象，用`ActiveDocument`方法获取当前活动文档。然后使用`Activate`方法激活文档，以确保在正确的文档中插入空白页。接下来，使用`InsertBreak`方法在光标位置插入一个分页符，即一个空白页。最后，通过将`doc`对象设置为`Nothing`来释放对文档对象的引用。

你可以在需要的地方调用这个宏来插入空白页。请注意，你可能需要在宏安全设置中启用宏以使其正常工作。

希望能对你有所帮助！如果还有其他问题，请随时提问。

word 空白页删除

以下是Word删除空白页的6种方法：
1.手动删除：将光标移动到空白页的末尾，按下“Delete或“Backspace”键，直到空白页消失。
2.调整段落格式：选中空白页上方和下方的段落标记，右键单击，选择“段落”选项，将“段后间距”和“段前间距”设置为0，点击“确定”即可。
3.删除空白页中的空格：选中空白页中的所有空格，按下“Delete”或“Backspace”键，直到空白页消失。
4.删除分页符：如果空白页是由分页符引起的，可以将光标移动到分页符上，按下“Delete”或“Backspace”键，直到空白页消失。
5.使用查找和替换功能：按下“Ctrl + H”组合键，打开“查找和替换”对话框，在“查找”框中输入“^m^p”（不含引号），在“替换”框中留空，点击“全部替换”按钮即可。
6.使用宏：按下“Alt + F11”组合键，打开“Microsoft Visual Basic for Applications”窗口，在左侧的“项目”窗格中双击要编辑的文档，将以下代码复制并粘贴到右侧的窗格中：

Sub DeleteBlankPage()
    Dim i As Integer
    For i = ActiveDocument.Content.End - 1 To 1 Step -1
        If Len(Trim(ActiveDocument.Characters(i))) = 0 Then
            ActiveDocument.Characters(i).Delete
        End If
    Next i
End Sub

按下“F5”键运行宏，即可删除所有空白页。