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

Этот код работает нормально, за исключением того, что сохраненная «копия» не содержит макросы и формы.

Я хочу, чтобы сохраненный шаблон содержал макрокоманды, формы и код внутри "ThisDocument" .

Answer 1

Невозможно сохранить макросы в прикрепленном шаблоне в документ, созданный из шаблона с использованием SaveAs, даже при сохранении в виде файла типа docm.

Единственный способ - создать новыйфайл как новый шаблон, с самого начала:

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