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

5. 运行代码

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

6. 观察结果

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

7. 返回Word文档

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

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

注意事项

• 确保您的Word文档未设置为只读模式
• 如果您看不到"开发工具"选项卡，需要在Word选项中启用它
• 如果遇到安全警告，可能需要调整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 AddBlankPageAtEnd()
       ' 显示开始执行的消息
       MsgBox "开始执行添加空白页的操作"
   
       ' 移动到文档末尾
       Selection.EndKey Unit:=wdStory
       
       ' 显示当前页码和总页数
       MsgBox "当前页码: " & Selection.Information(wdActiveEndAdjustedPageNumber) & _
              vbNewLine & "总页数: " & Selection.Information(wdNumberOfPagesInDocument)
       
       ' 无论如何都插入分页符
       Selection.InsertBreak Type:=wdPageBreak
       
       ' 移动到新插入的空白页
       Selection.MoveRight Unit:=wdCharacter, Count:=1
       
       ' 清除任何可能的格式
       Selection.ParagraphFormat.Reset
       
       ' 显示操作完成的消息
       MsgBox "空白页面已添加到文档末尾"
       
       ' 再次显示当前页码和总页数，以确认新页面已添加
       MsgBox "添加后 - 当前页码: " & Selection.Information(wdActiveEndAdjustedPageNumber) & _
              vbNewLine & "总页数: " & Selection.Information(wdNumberOfPagesInDocument)
   End Sub
   

5. 运行代码

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

6. 观察结果

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

7. 返回Word文档

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

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

注意事项

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

故障排除

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

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

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