instance a new dotm file from a Word dotm file and save with new file name

gmayor · #2 08-18-2023, 02:28 AM

The available fileformats are listed at WdSaveFormat enumeration (Word) | Microsoft Learn. Your macro has three issues. One is attributable to not observing good practice i.e. you have not declared the variables used, the others relate to the file naming.
Your variable selectedTargetPath does not include the path separator, so the probability is that the chosen path does not exist, when included in your WordDocFilePathAndName.
By default Word will save an unsaved document as docx format. If you want another format you have to tell it what format you require. In the case of DOCM format that would be wdFormatXMLDocumentMacroEnabled, or its numeric equivalent 13.

NOTE: documents saved as macro enabled will not contain the macros from the template on which they are based. If you want macros, you would have to add them before saving.

Code:

Dim fldr As FileDialog
Dim selectedTargetPath As String
Dim WordDocFilePathAndName As String
Dim saveDate As Date

    If IsNull(ActiveDocument.path) Or ActiveDocument.path = "" Then
        'GET WORKING FOLDER FROM USER
        Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
        With fldr

            .Title = "Select a Folder for this Word File and all of the associated Images to be stored"
            .AllowMultiSelect = False
            If .Show <> -1 Then
                'NOTHING SELECTED NEED MSG
                MsgBox "You must specify a Folder for this Word file to be stored", vbOKOnly + vbExclamation, "FOLDER NOT SELECTED"
                Exit Sub
            Else
                'PATH IS SELECTED
                selectedTargetPath = .SelectedItems(1) & "\"
            End If
        End With
        Set fldr = Nothing

        saveDate = Now

        'SAVE FILE TO FIX ACTIVE DOCUMENT PATH SO FILES CAN BE COPIED TO THE CORRECT LOCATION
        WordDocFilePathAndName = selectedTargetPath & "" & _
                                 "8_5x11 Photos " & Year(saveDate) & "." & Month(saveDate) & "." & Day(saveDate) & _
                                 " " & Hour(saveDate) & "." & Minute(saveDate) & "." & Second(saveDate) & ".docm"
        ActiveDocument.SaveAs FileName:=WordDocFilePathAndName, FileFormat:=wdFormatXMLDocumentMacroEnabled
    End If
    Set fldr = Nothing

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
I have a dotm file and can't add bookmarks because it reverts to normal doc	Dpucher	Word VBA	1	07-21-2019 08:15 PM
View/edit macro in DOTM file.	eduzs	Word VBA	5	04-14-2018 04:33 AM
Which .dotm file used for replies in Outlook 2013?	kungfauxn00b	Outlook	0	04-17-2014 01:41 AM
Editing .dotm/.dotx/dot file	martinlest	Word	9	10-09-2013 01:57 PM
Macros being stripped from dotm file	Brian Muth	Word	1	10-09-2012 10:00 PM