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 空白页删除

以下是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”键运行宏，即可删除所有空白页。

word删除空白页的宏怎么写

你可以使用VBA宏来删除Word文档中的空白页。以下是一个示例的VBA宏代码：

Sub DeleteBlankPages()
    Dim i As Integer
    
    ' 循环检查每一页
    For i = ActiveDocument.Content.End - 1 To 2 Step -1
        ' 选择当前页的内容
        With Selection
            .GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i
            .Expand Unit:=wdParagraph
        End With
        
        ' 检查当前页的内容是否为空
        If Trim(Selection.Text) = "" Then
            ' 删除当前页
            Selection.Delete
        End If
    Next i
End Sub

你可以按照以下步骤在Word中创建和运行宏：

1. 打开你的Word文档。
2. 按下`Alt + F11`，打开Visual Basic for Applications编辑器。
3. 在编辑器中，选择`插入` -> `模块`，创建一个新的模块。
4. 将上述VBA宏代码粘贴到模块中。
5. 关闭VBA编辑器。
6. 在Word中按下`Alt + F8`，打开宏对话框。
7. 选择`DeleteBlankPages`宏，并点击`运行`按钮。

这个宏会遍历整个文档的每一页，检查每一页的内容是否为空。如果发现某一页的内容为空（只包含空白字符），则会删除该页。

请注意，在运行宏之前，建议先备份你的Word文档，以防意外发生。