Merke seg tabellrader som inneholder en Character

December 5  by Eliza

Heidi har femten dokumenter, hver består hovedsakelig av en lang tabell. Hun trenger å lage en makro for å søke rad-for-rad og liksom markere (enten ved skyggelegging, fet skrift, endre font, etc.) en rad som ikke har en parentes karakter hvor som helst i raden. Alternativt kan hun også markere rader som inneholder en parentes karakter-hun bare trenger å være i stand til å skille mellom radene som gjør og rader som ikke gjør det.

Det er mange måter som en slik makro kan bli kontaktet, men en som søker etter en åpning eller lukking parentes er relativt enkelt. Følgende eksempel vil gjøre søk, rad etter rad, og hvis enten karakter er funnet, vil det markere raden ved å gjøre bakgrunnen gul.

Sub HilightRows ()
Dim TargetText1 As String
Dim TargetText As String
Dim oRow Som Row
Dim iCol As Integer

«Initial målbokstavene å finne
TargetText = "("
TargetText1 = ")"

«Pass på at vi er i en tabell
Hvis Selection.Information (wdWithInTable) Deretter
"Clear all den gamle skyggelegging
Selection.Tables (1) .Shading.BackgroundPatternColor = wdColorWhite
"Gjøre alle radene
For Hver oRow I Selection.Tables (1) .Rows
Hvis InStr (oRow.Range.Text, TargetText)> 0 Then _
oRow.Shading.BackgroundPatternColor = wdColorYellow
Hvis InStr (oRow.Range.Text, TargetText1)> 0 Then _
oRow.Shading.BackgroundPatternColor = wdColorYellow
Neste oRow
End If
End Sub

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (568) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Merker seg tabellrader som inneholder en Character.