如何刪除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文檔中的空白頁。