Corrupt Word Document after VBA Macros

Hello,

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

Code:

---

    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

---

Attachment 31761

Is the document empty?
Have you used the debugging tools to view the contents of the document before the save occurs?

I think U need to use SaveAs2 when changing the file extension. HTH. Dave

Is the "" supposed to be "<space>" ?

Code:

---

DocName = TName & "" & RevName & " " & sCustomer & " " & Title_txt & " _ 5CU"

---

I suggest repairing the file, checking macro settings, converting the format, and temporarily disabling security software.

Hi all,

Document is not empty, macro is pasting some text and values from excel to word.
The thing is, when I SaveAs manually .docm to .docx (after macro run), it saves correctly and .docx opening without any trouble.
When I use code from first message to auto save and the end of macro work, it gives me corrupt error.

Quote:

---

Originally Posted by Dave

I think U need to use SaveAs2 when changing the file extension. HTH. Dave

---

I tried SaveAs2 instead of SaveAs but corruption still remains.

Quote:

---

Originally Posted by Paul_Hossler

Is the "" supposed to be "<space>" ?

---

Yes, it is space.

Why is this a .docm and not a .dotm?
When a new document is created based on the template it can simply be saved as a docx file.