Convert to .doc

[Dimsok]

I try such code for converting docx to doc format:

Sub ToDoc()
    Application.Run MacroName:="FileSaveWord11"
End Sub

But there is file dialog for saving it after execution. How to modify it for saving it silently without confirming in file dialog?

[gmayor]

Without knowing what the macro FileSaveWord11 is it is difficult to comment, however the following will save an existing document as DOC format - however be aware that DOC foirmat is not fully compatible with some later elements of DOCX format.

Sub SaveAsDOC()
Dim sPath As String
    ActiveDocument.Save
    sPath = Replace(ActiveDocument.FullName, ".docx", ".doc")
    ActiveDocument.SaveAs2 FileName:=sPath, FileFormat:=wdFormatDocument97
End Sub

[Dimsok]

This code gives error: runtime error 438 Object doesn't support this property of method. Have to use "SaveAs Filename" instead of "SaveAs2 FileName" for working.