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

Question

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

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

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

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

Answer 1

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

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

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