У Хайди пятнадцать документов, каждый из которых состоит в основном из одной длинной таблицы.

Ей нужно создать макрос для поиска строка за строкой и каким-то образом выделить (затенением, полужирным шрифтом, изменением шрифта и т. Д.) Любую строку, в которой нигде в строке нет скобок. В качестве альтернативы, она также может выделить строки, которые содержат символ круглой скобки — ей просто нужно иметь возможность различать строки, которые содержат, и строки, которые не содержат.

Есть много способов приблизиться к такому макросу, но поиск открывающей или закрывающей круглой скобки относительно прост. В следующем примере поиск будет выполняться строка за строкой, и, если любой символ будет найден, он выделит строку, сделав фон желтым.

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), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (568) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Noting_Table_Rows_Contain_a_Character [Запись строк таблицы, содержащих символ].