Convert to .doc

Dimsok · #1 04-16-2023, 11:01 PM

I try such code for converting docx to doc format:

Code:

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 · #2 04-17-2023, 07:11 AM

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.

Code:

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

Dimsok · #3 04-23-2023, 10:18 PM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to convert table to convert table into iCalendar file?	Weboh	Word VBA	5	12-10-2016 03:07 PM
how to convert .wps to .doc	ret_squid	Word	1	08-11-2016 09:03 PM
How to convert 8 1/2 x 11 to A4	GrantSaw	Word	3	01-28-2015 11:04 AM
Convert .ost to .pst	phoy	Outlook	1	12-03-2011 07:07 PM
Convert PDF to PPT?	Hinmini	PowerPoint	1	10-28-2011 07:38 PM