Per alcuni documenti potrebbe essere necessario sottolineare le informazioni tra virgolette. Ad esempio, per alcuni documenti legali potrebbe essere necessario trovare tutto il materiale racchiuso tra virgolette e quindi sottolineare le informazioni tra le virgolette. Questo è diverso dalla normale scrittura in prosa, dove useresti sottolineature o virgolette, ma non entrambe.

Se hai bisogno di cercare tutto il testo citato e renderlo sottolineato, puoi utilizzare la seguente macro. Cerca le virgolette e quando ne trova una sottolinea tutto fino alla virgoletta successiva. Nota che in realtà non sottolineerà le virgolette stesse.

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

Prestare attenzione all’impostazione della variabile bDelQuotes. Se impostato su False (come qui), le virgolette stesse non vengono eliminate dalla macro. Se modifichi il valore della variabile in True, la macro elimina le virgolette nel documento. Nota che elimina le virgolette solo se sottolinea effettivamente il testo tra quelle virgolette.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (10473) si applica a Microsoft Word 2007, 2010, 2013 e 2016. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Word qui:

Underlining Quoted Text.