Macro en Word 2007 para realizar cambios y guardar con otra extensión
Publicado por J T (1 intervención) el 22/06/2021 21:19:29
Hola.
Tengo bastantes ficheros .doc a los que necesito realizar unos cambios y guardarlos como .docx.
En todos los casos los cambios a realizar son los mismos y el nombre del fichero al guardarlo tiene que ser el del documento activo en cada momento pero con la nueva extensión.
Para ello he creado una macro con el grabador de macros pero si bien los cambios me los realiza correctamente, a la hora de guardar el fichero me los guarda siempre con el nombre del que utilicé para la grabación de la macro (Documento1).
El código generado es el siguiente:
... Cambios a realizar
... Cambios a realizar (salen correctamente)
ActiveDocument.SaveAs FileName:= _
"Documento1.docx", FileFormat:= _
wdFormatDocumentDefault, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
Agradecería si me pudiérais indicar qué debo modificar para que los guarde correctamente.
Saludos.
Tengo bastantes ficheros .doc a los que necesito realizar unos cambios y guardarlos como .docx.
En todos los casos los cambios a realizar son los mismos y el nombre del fichero al guardarlo tiene que ser el del documento activo en cada momento pero con la nueva extensión.
Para ello he creado una macro con el grabador de macros pero si bien los cambios me los realiza correctamente, a la hora de guardar el fichero me los guarda siempre con el nombre del que utilicé para la grabación de la macro (Documento1).
El código generado es el siguiente:
... Cambios a realizar
... Cambios a realizar (salen correctamente)
ActiveDocument.SaveAs FileName:= _
"Documento1.docx", FileFormat:= _
wdFormatDocumentDefault, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
Agradecería si me pudiérais indicar qué debo modificar para que los guarde correctamente.
Saludos.
Valora esta pregunta


0