Hello,

After using following code in my .docm file I can't open .docx file (see error below)

    Dim FolderPath As String
    Dim DocName As String


    DocName = TName & "" & RevName & " " & sCustomer & " " & Title_txt & " _ 5CU"
    FolderPath = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Downloads" & "\" & DocName & ".docx"


    With ActiveDocument
        .Fields.Update
        .SaveAs FileName:=FolderPath
        MsgBox "Proposal Documents saved as <" & DocName & "> in your Downloads folder"
       ' .Close SaveChanges:=wdSaveChanges
    End With

corrupt.png