# 使用VBA删除Word文档最后一页的空白页

使用VBA删除Word文档最后一页的空白页

本教程将指导您如何使用VBA（Visual Basic for Applications）删除Microsoft Word文档最后一页的空白页。
详细代码使用流程参照上一篇博客增加空白页，替换代码部分即可

步骤

1. 打开Word文档
   打开包含要删除的空白页的Word文档。

2. 打开Visual Basic编辑器

   • 按Alt + F11键
   • 或者点击"开发工具"选项卡（如果可见），然后点击"Visual Basic"按钮

3. 插入新模块

   • 在Visual Basic编辑器中，右击左侧的项目浏览器中的文档名
   • 选择"插入" > “模块”

4. 粘贴VBA代码
   在新打开的模块窗口中，粘贴以下代码：

   Sub RemoveLastBlankPage()
       ' 显示开始执行的消息
       MsgBox "开始执行删除最后一页空白页的操作"
   
       ' 保存当前选择
       Dim originalSelection As Selection
       Set originalSelection = Selection.Range
   
       ' 移动到文档末尾
       Selection.EndKey Unit:=wdStory
   
       ' 显示当前页码和总页数
       MsgBox "当前页码: " & Selection.Information(wdActiveEndAdjustedPageNumber) & _
              vbNewLine & "总页数: " & Selection.Information(wdNumberOfPagesInDocument)
   
       ' 检查最后一页是否为空
       If Selection.Information(wdActiveEndAdjustedPageNumber) = _
          Selection.Information(wdNumberOfPagesInDocument) Then
           Selection.HomeKey Unit:=wdLine
           If Selection.Start = Selection.End Then
               ' 最后一页为空，删除它
               Selection.DeleteParagraph
               MsgBox "最后一页是空白页，已被删除"
           Else
               MsgBox "最后一页不是空白页，无需删除"
           End If
       Else
           MsgBox "光标不在最后一页，操作取消"
       End If
   
       ' 恢复原始选择
       originalSelection.Select
   
       ' 显示操作完成后的页数
       MsgBox "操作完成 - 当前总页数: " & ActiveDocument.ComputeStatistics(wdStatisticPages)
   End Sub
   

5. 运行代码

   • 将光标放在Sub RemoveLastBlankPage()和End Sub之间的任意位置
   • 按F5键运行代码
   • 或点击工具栏上的"运行"按钮（绿色三角形图标）

6. 观察结果

   • 代码运行时会显示几个消息框，告知您操作的进度和结果
   • 最后一个消息框会确认操作是否成功，并显示更新后的页数

7. 返回Word文档

   • 关闭Visual Basic编辑器或切换回Word窗口
   • 检查最后一页是否已被删除（如果它原本是空白的）

8. 保存文档
   别忘了保存您的文档以保留更改！

注意事项

• 此代码只会删除完全空白的最后一页
• 如果最后一页包含任何内容（包括空格或隐藏字符），它将不会被删除
• 确保您的Word文档未设置为只读模式
• 如果您看不到"开发工具"选项卡，需要在Word选项中启用它
• 如果遇到安全警告，可能需要调整Word的宏安全设置