Existe una regla no escrita en la composición tipográfica de que solo debe haber un espacio después del final de una oración. Esto proporciona la mejor apariencia visual en una página impresa, especialmente cuando se utilizan tipos de letra proporcionales. El problema es que es fácil agregar espacios adicionales al final de una oración sin siquiera darse cuenta. La siguiente macro, CheckSpaces, es una herramienta que puede usar para verificar el final de sus oraciones:

Sub CheckSpaces()

Call MakeChanges("Normal", ".")

Call MakeChanges("Normal", "!")

Call MakeChanges("Normal", ":")

End Sub
Sub MakeChanges(StyName As String, PuncMark As String)

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Style = ActiveDocument.Styles(StyName)

Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = PuncMark & "   "

.Replacement.Text = PuncMark & " "

.Forward = True         .Wrap = wdFindContinue         .Format = True     End With     Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = PuncMark & "  "

Selection.Find.Execute Replace:=wdReplaceAll End Sub

CheckSpaces solo quitará espacios adicionales de los párrafos formateados con el estilo Normal. Esto asegura que no estropeará el formato en tablas u otros elementos de diseño donde puede querer espacios adicionales después de los puntos. Si desea cambiar el tipo de puntuación buscado, o buscar en párrafos de diferentes estilos, agregue llamadas adicionales a MakeChanges después de la cuarta línea de la macro.

_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 (262) 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-Consistent_Spacing [Consistent Spacing].