使用VBA在Word文档末尾添加空白页

使用VBA在Word文档末尾添加空白页

本教程将指导您如何使用VBA（Visual Basic for Applicati）在Microsoft Word文档的末尾添加一个空白页。

1. 打开Word文档
   打开您想要添加空白页的Word文档，并打开开发者模式（按照图片步骤，勾选开发者工具）（
   
   。

2. 打开Visual Basic编辑器

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

3. 插入新模块

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

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

   Sub AddBlankPageAtEnd()
       	 显示开始执行的消息
       MsgBox 开始执行添加空白页的操作
   
       	 移动到文档末尾
       Selection.EndKey Unit:=wdStory
       
       	 显示当前页码和总页数
       MsgBox 当前页码:  & Selection.Information(wdActiveEndAdjustedPageumber) & _
              vbewLine & 总页数:  & Selection.Information(wdumberOfPagesInDocument)
       
       	 无论如何都插入分页符
       Selection.InsertBreak Type:=wdPageBreak
       
       	 移动到新插入的空白页
       Selection.MoveRight Unit:=wdCharacter, Count:=1
       
       	 清除任何可能的格式
       Selection.ParagraphFormat.Reset
       
       	 显示操作完成的消息
       MsgBox 空白页面已添加到文档末尾
       
       	 再次显示当前页码和总页数，以确认新页面已添加
       MsgBox 添加后 - 当前页码:  & Selection.Information(wdActiveEndAdjustedPageumber) & _
              vbewLine & 总页数:  & Selection.Information(wdumberOfPagesInDocument)
   End Sub
   

5. 运行代码

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

6. 观察结果

   • 代码运行时会显示几个消息框，告知您操作的进度
   • 最后一个消息框会确认新页面已添加，并显示更新后的页数

7. 返回Word文档

   • 关闭Visual Basic编辑器或切换回Word窗口
   • 您应该会看到文档末尾已添加了一个空白页

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

• 确保您的Word文档未设置为只读模式
• 如果您看不到开发工具选项卡，需要在Word选项中启用它
• 如果遇到安全警告，可能需要调整Word的宏安全设置

如果代码运行后没有添加新页面：

• 检查文档是否已经在最后一页
• 确保您有修改文档的权限
• 尝试在一个新的、空白的文档中测试这个代码

希望这个教程对您有所帮助！如果您有任何问题，随时在评论区提出。