如何删除word文档中的空白页

一、通过调整页面边距删除

1、打开Word文档，点击“布局”选项卡，找到“页面边距”选项。

2、在“自定义边距”中，将上下左右的边距都设置为0，然后点击确定。

3、此时所有页的边距都变为0，假如有空白页，在打印的时候就会被跳过。

Sub DeleteBlankPageByMargin()
    Dim i As Integer
    Dim sec As Section
    For Each sec In ActiveDocument.Sections
        i = i + 1
        With sec.PageSetup
            .TopMargin = 0
            .BottomMargin = 0
            .LeftMargin = 0
            .RightMargin = 0
        End With
    Next
End Sub

二、检查段落和分页符

1、在Word文档中，选中“段落”标记，查看是否有多余的段落符。

2、在需要删除空白页的位置，手动插入分页符，然后删除多余的空白页。

Sub DeleteBlankPageByPara()
    Dim i As Integer
    For i = ActiveDocument.Paragraphs.Count To 1 Step -1
        If ActiveDocument.Paragraphs(i).Range.Text = vbCr And ActiveDocument.Paragraphs(i + 1).Range.Text = vbCr Then
            ActiveDocument.Paragraphs(i).Range.Delete
        End If
    Next
End Sub

三、删除空白内容

1、选中需要删除的内容，包括空白页上的内容。

2、按下Delete键或使用剪切工具删除空白页上的内容。

3、若空白页未被删除，可按住Ctrl键选中空白页，然后按下Delete键删除。

Sub DeleteBlankPageByContent()
    Dim i As Integer
    For i = ActiveDocument.Shapes.Count To 1 Step -1
        If ActiveDocument.Shapes(i).Type = msoTextBox And _
        ActiveDocument.Shapes(i).TextFrame.HasText = False Then
            ActiveDocument.Shapes(i).Delete
        End If
    Next
End Sub

四、设置分页符格式

1、选中某一页的内容，打开“页面设置”窗口，单击“分页符”选项卡。

2、勾选“分页符应出现在本页底部”。

3、对于后面的空白页，重复以上步骤。

Sub DeleteBlankPageByFormat()
    Dim i As Integer
    For i = ActiveDocument.Content.End - 1 To 2 Step -1
        If ActiveDocument.Characters(i).Text = Chr(12) Then
            ActiveDocument.Range(i, i + 1).Delete
            Exit For
        End If
    Next
End Sub

五、总结

Word文档中的空白页是造成排版混乱的主要原因之一，通过上述几种方法，我们可以轻松删除Word文档中的空白页。