Mientras estoy formateando documentos, muchas veces necesito que una palabra o un pasaje en particular se formatee tanto en negrita como en cursiva. Word incluye herramientas (en la barra de herramientas de Formato) que aplican negrita y cursiva, pero no negrita y cursiva. Me cansé de hacer dos clics, así que creé mi propia herramienta para aplicar ambos formatos a la vez. La macro resultante se puede asignar a una herramienta de la barra de herramientas, junto a las herramientas Negrita y Cursiva.

La forma más sencilla de hacer esto es con una macro de la siguiente manera:

Sub BoldItalics1()

Selection.Font.Bold = True     Selection.Font.Italic = True End Sub

Esta macro activa los atributos, pero no realiza ningún cambio. En otras palabras, no puede desactivar la negrita y cursiva utilizando la misma macro, como puede hacerlo con las herramientas individuales de negrita y cursiva. Esto llevó a la macro «próxima generación», que comprueba el estado del texto seleccionado antes de realizar cambios:

Sub BoldItalics2()

Dim BIStatus As Integer

BIStatus = 0     If Selection.Font.Bold Then BIStatus = BIStatus + 1     If Selection.Font.Italic Then BIStatus = BIStatus + 1

If BIStatus = 0 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 1 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 2 Then         Selection.Font.Bold = False         Selection.Font.Italic = False     End If End Sub

Las primeras líneas de la macro incrementan una variable (BIStatus) dependiendo de si las propiedades Negrita o Cursiva están configuradas para la selección. Cuando estas líneas estén completas, BIStatus será 0 si el texto seleccionado no está en negrita ni cursiva, 1 si está en negrita o cursiva, o 2 si está en negrita y cursiva.

Si BIStatus se establece en 0 o 1, entonces se establecen las propiedades Negrita e Cursiva para el texto seleccionado. Si se establecieron previamente (BIStatus es 2), ambas propiedades se desactivan.

_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 (606) 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-Applying_Bold_Italics [Aplicación de negrita en cursiva].