A George le gustaría condensar solo el espacio entre palabras en algún texto que selecciona en un documento. Puede cambiar el tamaño en puntos de cada espacio, uno a la vez. También puede hacerlo buscando el espacio y reemplazándolo con un espacio que tenga un tamaño de letra más pequeño. Sin embargo, le gustaría reducir el tamaño de los espacios paso a paso. (Por ejemplo, 0,1 puntos en cada paso.)

No es posible hacer exactamente lo que George quiere porque Word solo le permite ajustar el tamaño de fuente en incrementos de medio punto, no en incrementos de décimas. Si es suficiente disminuir medio punto a la vez, entonces el mejor enfoque es usar una macro:

Sub StepSpaceFontSize()

Dim F As Double     Dim C As Long

For C = 1 To Len(Selection)

If Asc(Mid(Selection, C, 1)) = 32 Then             F = Selection.Range.Characters(C).Font.Size             If F > 5 Then                 Selection.Range.Characters(C).Font.Size = (F - 0.5)

End If         End If     Next C End Sub

La macro recorre cada carácter en cualquier texto seleccionado y, si el carácter es un espacio, disminuye el tamaño en puntos de ese espacio. La macro impone un límite inferior en el tamaño de la fuente, ya que solo bajará a 5 puntos.

_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 (13717) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.