Para algunos documentos, es posible que deba subrayar la información entre comillas. Por ejemplo, para algunos documentos legales, es posible que deba buscar todo el material entre comillas y luego subrayar la información entre las comillas. Esto es diferente de la escritura en prosa normal, donde se usarían subrayados o comillas, pero no ambos.

Si necesita buscar todo el texto entre comillas y subrayarlo, puede utilizar la siguiente macro. Busca comillas y cuando encuentra una, subraya todo hasta la siguiente comilla. Tenga en cuenta que en realidad no subrayará las comillas en sí.

Sub UnderlineQuoted()

Dim bDelQuotes As Boolean     Dim bMvRt As Boolean     Selection.HomeKey Unit:=wdStory

' controls deletion of quote marks     bDelQuotes = False          With Selection.Find         .ClearFormatting         .Text = Chr(34)

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .Execute     End With

While Selection.Find.Found         Selection.MoveRight Unit:=wdCharacter, Count:=1         ' switch on selection extend mode         Selection.ExtendMode = True         bMvRt = True         ' find second quote of this pair         Selection.Find.Execute         If Selection.Find.Found Then             Selection.MoveLeft Unit:=wdCharacter, Count:=1             If Len(Selection.Range.Text) > 0 Then                 ' make it underlined                 Selection.Font.Underline = True                 ' delete quote marks, if appropriate                 If bDelQuotes Then                     Selection.Cut                     Selection.TypeBackspace                     Selection.Delete Unit:=wdCharacter, Count:=1                     Selection.Paste                     bMvRt = False                 End If             End If         End If         Selection.ExtendMode = False         If bMvRt Then             Selection.Collapse Direction:=wdCollapseEnd             Selection.MoveRight Unit:=wdCharacter, Count:=1         End If         Selection.Find.Execute     Wend End Sub

Preste atención a la configuración de la variable bDelQuotes. Si se establece en False (como está aquí), las comillas en sí mismas no son eliminadas por la macro. Si cambia el valor de la variable a Verdadero, la macro elimina las comillas del documento. Tenga en cuenta que solo elimina las comillas si realmente subraya el texto entre esas comillas.

_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 (10473) se aplica a Microsoft Word 2007, 2010, 2013 y 2016. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Word aquí:

link: / word-Underlining_Quoted_Text [Subrayado del texto entre comillas].