海蒂有15个文件，每个文件主要由一张长桌组成。

她需要创建一个宏来逐行搜索，并以某种方式突出显示（通过阴影，加粗，更改字体等）任何在行中任何地方都没有括号的行。另外，她还可以突出显示确实包含括号字符的行-她只需要能够区分有括号的行和没有括号的行。可以使用很多方法来使用这种宏，但是搜索开括号或闭括号的方法相对容易。以下示例将逐行进行搜索，如果找到任何一个字符，它将通过使背景变黄来突出显示该行。

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

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（11435）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

注意包含字符的表行。