Macro in Word 2007 to make changes and save with another extension

gmayor · #2 06-25-2021, 08:51 PM

If you don't want to retain the original doc file then

Code:

ActiveDocument.Convert
ActiveDocument.Save

If you want to keep the doc file

Code:

Dim oDoc As Document
Dim sName As String
    Set oDoc = ActiveDocument
    sName = ActiveDocument.FullName
    If oDoc.HasVBProject = True Then
        sName = Left(sName, InStrRev(sName, Chr(46))) & "docm"
        oDoc.SaveAs FileName:=sName, _
                    FileFormat:=wdFormatXMLDocumentMacroEnabled
    Else
        sName = Left(sName, InStrRev(sName, Chr(46))) & "docx"
        oDoc.SaveAs FileName:=sName, _
                    FileFormat:=wdFormatXMLDocument
    End If
    Set oDoc = Nothing

You might findDocument Batch Processes useful

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro now requires file extension entered to open document	Rampum15	Word VBA	2	12-09-2019 06:19 AM
Macro to save Word 2007 document using info from Quick Parts	staicumihai	Word VBA	2	08-08-2018 01:21 AM
Cant save document as docx or doc using macro in Word 2007	staicumihai	Word VBA	1	04-27-2018 10:59 AM
How To Apply A VBA Macro to All Subfolders in a Directory of a docx. Extension	jc491	Word VBA	8	09-11-2015 08:31 AM
How can I save a macro in the PowerPoint 2007 default presentation	mrayncrental	PowerPoint	1	06-09-2014 06:13 AM