No es raro tener que formatear archivos de texto en Word. Por ejemplo, puede recibir un mensaje de correo electrónico de alguien que necesita formatear, o puede obtener un archivo ASCII de un amigo. La necesidad más común para formatear un archivo de este tipo es eliminar espacios o tabulaciones adicionales al principio de una línea, espacios o tabulaciones adicionales al final de una línea, eliminar los caracteres de «respuesta» del comienzo de cada línea y combinar líneas hacer párrafos.

Hacer todo esto a mano es un trabajo que requiere mucho tiempo y puede volverlo loco fácilmente, especialmente si el archivo es muy grande. La siguiente macro debería facilitarle las cosas. Cumple todas las tareas que se acaban de relatar y las hace muy rápidamente.

Sub DoASCII()

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "^p^w"

.Replacement.Text = "^p"

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll     For J = 1 To 4         Selection.Find.Text = "^p> "

Selection.Find.Execute Replace:=wdReplaceAll     Next J     Selection.Find.Text = "^p^w"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^w^p"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p^p"

Selection.Find.Replacement.Text = "[{}]"

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "^p"

Selection.Find.Replacement.Text = " "

Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = "[{}]"

Selection.Find.Replacement.Text = "^p"

Selection.Find.Execute Replace:=wdReplaceAll End Sub

Debe tener en cuenta que esta macro reemplazará hasta cuatro niveles de «>»

caracteres colocados al principio de una línea. También asume que el único lugar donde desea saltos de párrafo son aquellos lugares donde existe una línea en blanco.

_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 (1268) 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-Formatting_Text_Files_with_VBA [Formateo de archivos de texto con VBA].