Anthony importa regularmente varios informes, en archivos de texto (es decir, nombre de archivo.txt), en Word. Luego usa macros para formatear esta información importada. Una vez completada la macro de formato, Anthony usa manualmente «Guardar como» para cada informe para guardarlo como un documento de Word. Se pregunta qué comandos debería agregar a su macro para automatizar el último paso para guardar los datos. A Anthony le gustaría que la macro guarde el archivo usando el mismo nombre raíz que el archivo de texto original, solo cambiándolo a formato Word, como en filename.docx.

Los pasos para guardar el archivo son relativamente sencillos. Considere el siguiente fragmento de código, que guarda un documento en formato Word:

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

El nombre del archivo se almacena en la variable sDocName y la configuración de la propiedad FileFormat indica que desea que el documento se guarde en formato Word. En una macro existente, lo único que queda por hacer es configurar sDocName con el nombre de archivo deseado.

Suponiendo que ha guardado su nombre de archivo de texto original en la variable sOrigName, puede usar el siguiente código para cambiar la extensión a .doc y luego guardar el archivo:

sDocName = Left(sOrigName, Len(sOrigName) - 4)

sDocName = sDocName & ".docx"

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

El código asume que los últimos cuatro caracteres de sOrigName contienen la extensión del nombre de archivo (el punto más tres caracteres). Estos se eliminan y se agrega la extensión «.docx». Si no está seguro de cuánto tiempo será la extensión del nombre del archivo para el archivo original, puede confiar en la función Dividir para separarlo, si lo desea:

sNameParts = Split(sOrigName, ".")

sDocName = sNameParts(0) & ".docx"

ActiveDocument.SaveAs FileName:=sDocName, _   FileFormat:=wdFormatDocument

Para que esta macro funcione, asegúrese de declarar sNameParts como una matriz de cadenas.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (404) se aplica a Microsoft Word 2007, 2010, 2013 y 2016. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Word aquí:

link: / word-Saving_in_Document_Format_from_a_Macro [Guardar en formato de documento desde una macro].