Word 2013 VBA - 保存包含宏模块的模板答案

【问题标题】：Word 2013 VBA - Save template including macro modulesWord 2013 VBA - 保存包含宏模块的模板
【发布时间】：2018-11-20 01:52:28
【问题描述】：

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

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

此代码工作正常，只是保存的“副本”不包含宏和表单。

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

【问题讨论】：

标签： vba ms-word

【解决方案1】：

无法将附加模板中的宏保存到使用SaveAs 从模板创建的文档中，即使保存为文件类型docm 也是如此。

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

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

【讨论】：

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