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

不可能將附加模板中的宏保存到使用SaveAs從模板創建的文檔中，即使將其保存為docm文件類型也是如此。

唯一的方法是從一開始就將新文件創建為新模板：

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