Puede haber ocasiones en las que esté trabajando con un documento en las que necesite eliminar las marcas de párrafo adicionales. Esto es particularmente cierto si está trabajando con un archivo ASCII o un archivo que puede haber sido formateado originalmente con otro procesador de texto. Este proceso de eliminar manualmente las marcas de párrafo adicionales puede llevar mucho tiempo.

Si se encuentra en esta situación, puede encontrar esta macro de interés. Elimina las marcas de párrafo adicionales de un documento. Cuando esté completo, no debe haber ni dos marcas de párrafo seguidas en su documento.

Sub ReplacePara()

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

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute     While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeBackspace         Selection.MoveLeft Unit:=wdCharacter, Count:=2         Selection.Find.Execute     Wend End Sub

Esta macro consta de dos partes. La primera parte, que se basa en el método Selection.Find, utiliza las funciones de búsqueda y reemplazo integradas de Word para buscar todas las instancias de dos marcas de párrafo en secuencia. La macro no reemplaza las marcas de párrafo secuenciales; simplemente los encuentra.

Luego, se activa la segunda parte de la macro, utilizando la propiedad Selection.Find.Found, para eliminar la segunda de las dos marcas de párrafo secuenciales.

La razón por la que se adopta este enfoque es porque deja el formato correcto en la marca de párrafo restante. Por ejemplo, si las dos marcas de párrafo secuenciales utilizan un formato diferente entre sí, el formato de la primera marca de párrafo permanece sin cambios. Si simplemente reemplazó las marcas de párrafo secuenciales con una sola marca de párrafo, es posible que no tenga el formato exactamente como desea cuando finalice el reemplazo.

Tenga en cuenta que Selection.Find.Found se utiliza como una «bandera» para el ciclo While.

Esta propiedad refleja el estado de la última operación de búsqueda. Si es Verdadero, la búsqueda se realizó correctamente; si es False, entonces no se encontró nada (y, por lo tanto, nada que cambiar).

_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 (998) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.