ActiveDocument.Convert
    ChangeFileOpenDirectory "C:\Users\Besitzer\Desktop\SHARED"
    ActiveDocument.SaveAs2 FileName:="d_MM_MaskenEDI_101025.dotm", FileFormat _
        :=wdFormatXMLTemplateMacroEnabled, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
        SaveFormsData _
        :=False, SaveAsAOCELetter:=False, CompatibilityMode:=14