Сохранение файла в определенную папку

Например, это можно сделать можно с помощью VBA-кода, приведенного ниже.
Стартовый макрос - SDDF1, в нем можно указать фиксированный путь к целевой папке.
Если таких папок несколько, то можно создать необходимое число макросов SDDFN, со своими настройками для папок. Потом для макросов SDDFN можно создать горячие клавиши, либо вынести иконки для их запуска на QAT.
'------------------------------------------------------------------------------------------------------
Sub SaveDocumentToDefinedFolder(folderpath As String)
Dim docname  As String
Dim saveerr As Long
'Запрос имени документа
docname = InputBox("Укажите имя файла", "Сохранение документа с заданным именем")
If Trim$(docname) <> "" Then
    ChangeFileOpenDirectory folderpath & "\"
    saveerr = 0
    On Error Resume Next
    'Параметры сохранения можно изменить
    ActiveDocument.SaveAs2 FileName:=docname & ".docx", FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=14
    saveerr = err.Number
    On Error GoTo 0
    If saveerr <> 0 Then
        MsgBox "Не удалось сохранить файл" & vbCrLf & _
        folderpath & "\" & docname & _
        "Код ошибки = " & CStr(saveerr)
    End If
End If
End Sub
Sub SDDF1()
SaveDocumentToDefinedFolder "C:\Temp"
End Sub

всем доброе утро!
подскажите макросы включены а код пишет что макрос не найден. Возможно он отключен по соображениям безопасности. мне нужно сохранить этот код в виде надстройки, шаблона dotm?