Heidi ha quindici documenti, ciascuno composto principalmente da un lungo tavolo.

Ha bisogno di creare una macro per cercare riga per riga e in qualche modo evidenziare (ombreggiando, mettendo in grassetto, cambiando il carattere, ecc.) Qualsiasi riga che non abbia un carattere di parentesi ovunque nella riga. In alternativa, può anche evidenziare le righe che contengono un carattere di parentesi: deve solo essere in grado di distinguere tra le righe che lo contengono e le righe che non lo fanno. Ci sono molti modi per avvicinarsi a una macro di questo tipo, ma quella che cerca una parentesi di apertura o chiusura è relativamente facile. L’esempio seguente eseguirà la ricerca riga per riga e, se viene trovato uno dei caratteri, evidenzierà la riga rendendo lo sfondo giallo.

Sub HilightRows()

Dim TargetText1 As String     Dim TargetText As String     Dim oRow As Row     Dim iCol As Integer

'initialize the target characters to find     TargetText = "("

TargetText1 = ")"



'Make sure we're in a table     If Selection.Information(wdWithInTable) Then         'Clear all the old shading         Selection.Tables(1).Shading.BackgroundPatternColor = wdColorWhite         'do all the rows         For Each oRow In Selection.Tables(1).Rows             If InStr(oRow.Range.Text, TargetText) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow             If InStr(oRow.Range.Text, TargetText1) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow         Next oRow     End If End Sub

_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 (11435) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Annotando le righe della tabella che contengono un carattere.