Uno de los mayores problemas al formatear lo que antes era un archivo ASCII es modificarlo, por lo que solo hay retornos duros al final de los párrafos. La mayoría de los archivos ASCII tienen un retorno de disco duro al final de cada línea del archivo y dos retornos de disco duro al final de cada párrafo. Si tiene un archivo ASCII con este formato, como algo que descargó de Internet, la siguiente macro será invaluable. Formatea un archivo completo, por lo que solo hay retornos duros al final de los párrafos.

Sub ConvertASCII()

Fmt "^p^p", "{|}"

Fmt "^p", " {@}"

Fmt " {@}", " "

Fmt "{@}", " "

Fmt "{|}", "^p"

End Sub
Sub Fmt(sFromWord, sToWord)

Set myRange = ActiveDocument.Content     myRange.Find.ClearFormatting     myRange.Find.Execute FindText:=sFromWord, _       ReplaceWith:=sToWord, MatchCase:=0, _       Replace:=wdReplaceAll End Sub

Debe ejecutar la macro ConvertASCII. Llama a la macro Fmt varias veces para reemplazar varias combinaciones de caracteres de retorno para obtener el resultado deseado.

_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 (187) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Automatically_Formatting_an_ASCII_File [Formateo automático de un archivo ASCII].