ردیف های جدول با یک شخصیت

Question

هایدی پانزده سند دارد که هر کدام عمدتاً از یک جدول طولانی تشکیل شده‌اند. او باید یک ماکرو ایجاد کند تا ردیف به ردیف جست‌وجو کند و هر ردیفی را که در هیچ نقطه‌ای از آن کاراکتر پرانتز ندارد، به نحوی برجسته کند (از طریق سایه زدن، پررنگ کردن، تغییر فونت و غیره). همچنین می‌تواند برجسته کند. ردیف‌هایی که حاوی یک کاراکتر پرانتز هستند - او فقط باید بتواند بین ردیف‌هایی که انجام می‌دهند و ردیف‌هایی که t هستند تمایز قائل شود. راه های زیادی وجود دارد که می توان به چنین ماکرو نزدیک شد، اما روشی که به دنبال پرانتز باز یا بسته می شود نسبتا آسان است. مثال زیر سطر به سطر جستجو را انجام می دهد و اگر هر یک از کاراکترها پیدا شد، سطر را با زرد کردن پس زمینه برجسته می کند.

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