![]() |
#1
|
|||
|
|||
![]()
Hello.
I have many .doc files and I need to make some changes and save them as .docx. Always the changes to be made are the same and the name when it is saved must be the one of the active document but with the new extension (docx). In order to do it, I have created a macro with the macro recorder but although the changes are made correctly, the file is always saved with the name of the file used when I saved the macro (Document1). The generated code is as follows: .......... (rest of the code) ActiveDocument.SaveAs FileName: = _ "Document1.docx", FileFormat: = _ wdFormatDocumentDefault, LockComments: = False, Password: = "", AddToRecentFiles _ : = True, WritePassword: = "", ReadOnlyRecommended: = False, EmbedTrueTypeFonts _ : = False, SaveNativePictureFormat: = False, SaveFormsData: = False, _ SaveAsAOCELetter: = False Could you please tell me the changes that I must make in the above code in order to save it correctly? Thanks. |
#2
|
||||
|
||||
![]()
If you don't want to retain the original doc file then
Code:
ActiveDocument.Convert ActiveDocument.Save 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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
![]()
It works perfect for me!
Thanks a lot gmayor. |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Rampum15 | Word VBA | 2 | 12-09-2019 06:19 AM |
![]() |
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 |
![]() |
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 |