如何删除word后一页空白页

如何删除Word后一页空白页

在编写文档时，我们经常会遇到Word文档中出现多余的空白页，尤其是在最后一页，这些空白页不仅会影响文档的美观度，还可能导致打印时浪费纸张，如何删除Word文档后一页的空白页呢？本文将为您详细介绍几种解决方法。

方法一：使用“分页符”

1、打开Word文档，找到最后一个非空段落的前一个字符位置。

2、将鼠标指针移动到该位置，单击右键，选择“分割”。

3、在弹出的“分割”对话框中，选择“分页符”，然后点击“确定”。

4、Word文档中的空白页应该已经被删除，如果还有空白页，请按照步骤2和3继续操作。

方法二：使用“页面布局”选项卡

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

2、在“页面布局”选项卡中，点击“边距”按钮，选择“自定义边距”。

3、在弹出的“页面设置”对话框中，将上、下、左、右边距都设置为较小的值(例如1厘米),然后点击“确定”。

4、返回Word文档，此时空白页应该已经被删除，如果还有空白页，请尝试调整边距值，直到所有空白页都被删除。

方法三：使用“查找和替换”功能

1、打开Word文档，按下“Ctrl + H”快捷键，或者点击菜单栏中的“编辑”>“查找和替换”。

2、在弹出的“查找和替换”对话框中，将光标放在“查找内容”框中，然后按下键盘上的箭头键(向上或向下)。

3、当光标移到“查找下一个”时，点击它，选中空白页，空白页的代码(通常是连续的两个换行符)会显示在“查找内容”框中。

4、点击“替换”按钮，将代码替换为一个空格或其他字符(例如一个不间断空格)，然后点击“全部替换”。

5、Word文档中的空白页应该已经被删除，如果还有空白页，请重复步骤2-4,直到所有空白页都被删除。

方法四：使用VBA宏代码

1、打开Word文档，按下“Alt + F11”快捷键，打开VBA编辑器。

2、在VBA编辑器中，点击菜单栏中的“插入”>“模块”，在模块窗口中输入以下代码：

Sub DeleteBlankPages()    Dim oShp As Shape    Dim oRng As Range    Dim i As Long    i = ActiveDocument.BuiltInDocumentProperties("Number of Pages")    oRng = ActiveDocument.Range(0, i)    For Each oShp In oRng.Shapes        If oShp.Type = msoPage Then            oShp.ｄｅｌｅｔｅ        End If    Next oShpEnd Sub

3、保存代码，然后关闭VBA编辑器，回到Word文档，按下“Alt + F8”快捷键，选择刚刚创建的宏“DeleteBlankPages”，然后点击“运行”。

4、Word文档中的空白页应该已经被删除，如果还有空白页，请重复步骤3-4。