prucommercialre.com


Espaciado Consistente

Hay una regla no escrita en la composición tipográfica que sólo debe haber un espacio después de la final de una frase. Esto proporciona la mejor apariencia visual de una página impresa, especialmente cuando se utilizan tipos de letra proporcionales. El problema es que es fácil de añadir espacios adicionales al final de una frase sin siquiera darse cuenta. La siguiente macro, CheckSpaces, es una herramienta que puede utilizar para hacer doble comprobar el final de sus frases:

CheckSpaces Sub ()
Llame MakeChanges ("Normal", ".")
Llame MakeChanges ("Normal", "!")
Llame MakeChanges ("Normal", ":")
End Sub

MakeChanges Sub (StyName como secuencia, PuncMark As String)
Unidad Selection.HomeKey: = wdStory
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles (StyName)
Selection.Find.Replacement.ClearFormatting
Con Selection.Find
.text = PuncMark & ​​""
.Replacement.Text = PuncMark & ​​""
.forward = True
.Wrap = WdFindContinue
.formato = True
End With
Selection.Find.Execute Replace: = wdReplaceAll
Selection.Find.Text = PuncMark & ​​""
Selection.Find.Execute Replace: = wdReplaceAll
End Sub

CheckSpaces sólo tomará 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 períodos. Si desea cambiar el tipo de puntuacion buscado, o buscar en los párrafos estilo diferentes, añadir llamadas adicionales a MakeChanges después de la cuarta línea de la macro.

WordTips es su fuente de formación de Microsoft Word rentable. (Microsoft Word es el procesador de textos más popular en el mundo.) Esta punta (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í: espaciado consistente.