En muchos procesadores de texto, un autor puede mencionar el material con comillas. Por ejemplo, la primera vez que se introduce un término, el autor puede encerrar el término entre comillas. En Word, sin embargo, puede llamar la información en cursiva. Cambiar manualmente el material citado a cursiva puede llevar mucho tiempo.

La siguiente macro, QuotesToItalics, verifica el párrafo actual en busca de material citado. Si existe, borra las comillas y cambia el texto entre comillas a cursiva. Si las comillas están desequilibradas (hay una comilla de apertura o cierre sin la correspondiente comilla de cierre o apertura), la comilla se ignora y no se realizan cambios. La macro funciona con comillas regulares o comillas tipográficas.

Sub QuotesToItalic()

Dim Redo As Boolean     Dim Ptr As Integer     Dim Ptr1 As Integer     Dim P As String     Dim P1 As String

If Selection.ExtendMode Then Exit Sub     Redo = True     While Redo         Selection.StartOf Unit:=wdParagraph, Extend:=wdMove         Selection.MoveEnd Unit:=wdParagraph         P = Selection.Text         Ptr = InStr(P, Chr(34))

If Ptr = 0 Then Ptr = InStr(P, Chr(147))

If Ptr > 0 Then             Selection.MoveLeft Unit:=wdCharacter, Extend:=wdMove             Selection.MoveRight Unit:=wdCharacter, Count:=Ptr             Selection.MoveEnd Unit:=wdParagraph             P1 = Selection.Text             Ptr1 = InStr(P1, Chr(34))

If Ptr1 = 0 Then                 Ptr1 = InStr(P1, Chr(148))

EndChar = Chr(148)

Else                 EndChar = Chr(34)

End If             If Ptr1 > 0 Then                 Selection.MoveLeft Unit:=wdCharacter, Count:=2, _                   Extend:=wdMove                 Selection.Delete Unit:=wdCharacter                 Selection.MoveRight Unit:=wdCharacter, _                   Count:=Ptr1 - 1, Extend:=wdExtend                 Selection.Font.Italic = True                 Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove                 Selection.Delete Unit:=wdCharacter             Else                 Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove                 Redo = 0             End If         Else             Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove             Redo = 0         End If     Wend End Sub

_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 (264) 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-Replacing_Quoted_Text_with_Italics [Reemplazo del texto entre comillas con cursiva].