Word 2013 VBA-保存模板，包括宏模块

我有一个启用宏的模板。一个功能是将当前文档（基于模板）保存为另一个启用宏的模板。代码：

Private Sub cmdSaveAsTemplate_Click()

    Dim choice As Integer
    Dim dia As FileDialog

    Set dia = Application.FileDialog(msoFileDialogSaveAs)
    dia.FilterIndex = 5
    dia.InitialFileName = "TEMPLATE DealDoc"

    choice = dia.Show
    If choice <> 0 Then
        dia.Execute

    End If

End Sub

Private-Sub-cmdsaveaTemplate_-Click（）
作为整数的Dim选择
Dim dia As文件对话框
Set dia=Application.FileDialog（msoFileDialogSaveAs）
过滤器直径指数=5
dia.InitialFileName=“模板文件”
选择=直径显示
如果选择0那么
直径执行
如果结束
端接头

除了保存的“副本”不包含宏和表单外，此代码工作正常

---

我希望保存的模板包含makro模块、表单和“ThisDocument”中的代码。

无法将附加模板中的宏保存到使用

SaveAs

从模板创建的文档中，即使保存为文件类型docm也是如此

唯一的方法是从一开始就将新文件创建为新模板：

Documents.Add Template:=pathNameToTemplate, NewTemplate:=True

---

好的，谢谢。然后，我需要重新考虑整个过程，而是将保存的副本用作可以导入回的数据文档。