如何编写Sub ButtonNext_Click()中的VBA代码以实现将Word 2016模板追加为当前文档末尾新页并让表单引用该新页？

我太懂你这个痛点了！之前那种必须先保存/打印才能加新页的操作确实繁琐，而且直接用Documents.Add Template加Range.InsertFile确实可能带进来不需要的模板模块，还没法让表单直接引用新页面的内容。下面给你一套完美的解决方案：

核心思路 #

我们先基于模板创建一个临时隐藏文档，只把里面的书签、表格这些需要的内容复制到当前文档末尾，完全避开模板的VBA模块；同时确保新内容自动在新页面，用户点击按钮就能直接用表单操作新页面的元素，不用额外保存/打印。

完整VBA代码 #

Sub ButtonNext_Click()
    Dim currentDoc As Document
    Dim tempDoc As Document
    Dim templatePath As String
    
    ' 关闭屏幕更新，避免操作过程中闪烁
    Application.ScreenUpdating = False
    
    ' 设置你的Word模板路径（替换成实际路径，支持绝对/相对路径）
    templatePath = "C:\YourTemplates\YourTemplate.dotm" ' 或者".\Templates\YourTemplate.dotm"
    
    ' 绑定当前活动文档
    Set currentDoc = ActiveDocument
    
    On Error GoTo Cleanup ' 出错时确保临时文档被关闭
    
    ' 基于模板创建临时文档，设为不可见（用户无感知）
    Set tempDoc = Documents.Add(Template:=templatePath, Visible:=False)
    
    ' 定位到当前文档末尾，插入分页符确保新内容在新页面
    currentDoc.Content.InsertAfter vbCr
    currentDoc.Range(currentDoc.Content.End - 1).InsertBreak Type:=wdPageBreak
    
    ' 复制临时文档的所有内容（只带书签、表格，不带VBA模块）
    tempDoc.Content.Copy
    
    ' 粘贴到当前文档的末尾
    currentDoc.Range(currentDoc.Content.End - 1).Paste
    
    ' 【可选】如果表单需要绑定新页面的书签，在这里添加代码
    ' 比如：currentDoc.FormFields("YourFormFieldName").LinkedBookmark = "NewPageBookmarkName"
    
Cleanup:
    ' 关闭临时文档，不保存任何修改
    If Not tempDoc Is Nothing Then
        tempDoc.Close SaveChanges:=wdDoNotSaveChanges
        Set tempDoc = Nothing
    End If
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    
    ' 提示操作完成（可选）
    MsgBox "新页面已成功追加！", vbInformation
End Sub

关键代码解释 #

• 临时隐藏文档：用Visible:=False创建模板文档，用户完全看不到这个临时文件，操作更流畅。
• 复制粘贴内容：直接复制tempDoc.Content只会把模板里的文本、表格、书签等内容带过来，模板的VBA模块会被完全排除，完美符合你的需求。
• 分页符插入：确保新内容自动在新页面，不用手动调整排版。
• 错误处理：On Error GoTo Cleanup保证哪怕中途出错，临时文档也会被关闭，不会残留后台进程。

注意事项 #

• 模板路径要正确：把代码里的templatePath替换成你实际的模板文件路径，支持绝对路径（比如C:\Templates\MyForm.dotm）或者相对路径（比如.\Templates\MyForm.dotm，相对当前文档的位置）。
• 书签唯一性：如果模板里的书签名称和当前文档重复，建议给模板里的书签加前缀（比如NewPage_XXX），避免表单引用时混淆。
• 信任设置：确保你的模板和当前文档放在Word的信任位置，或者暂时启用宏（测试时），避免宏被禁用导致代码无法运行。

内容的提问来源于stack exchange，提问作者grNadpa