5.6.5 Объекты Find и Replacement

Объекты Word.Find и Word.Replacement, программный поиск и замена текста в документе Word средствами VBA

Объекты Find и Replacement, как понятно из их названий, предназначены для выполнения операций поиска и замены. Объект Find — это условия поиска, "упакованные" в программный объект. У него множество свойств (Text, Style, Font, Forward, MathCase, LanguageID и т.п.), которые позволяют эти условия поиска определить. Чтобы запустить поиск, используется метод Execute() со множеством необязательных параметров, которые во многом дублируют свойства этого объекта (передав параметр ReplaceWith, можно выполнить даже замену текста). Для того, чтобы заменить все или просто проверить результаты поиска, используется значение, возвращаемое методом Execute(). Если значение обнаружено (поиск был успешен), то возвращается true, а если нет — false.

Как будет работать объект Find, зависит от того, из под какого объекта он был создан. Если он был создан при помощи свойства Find объекта Selection, то при обнаружении нужного фрагмента он выделяется. Если он был создан при помощи такого же свойства объекта Range, то диапазон переопределяется на найденный текст. Например, чтобы найти и выделить следующее вхождение текста "2004", можно использовать код:

Selection.Find.Text = "2004"

Selection.Find.Execute

Объект Replacement точно так же хранит настройки замены. Например, чтобы заменить везде до конца документа текст "2004" на "2005", можно использовать код

Selection.Find.Text = "2004"

Selection.Find.Replacement.Text = "2005"

Selection.Find.Execute Replace := wdReplaceAll

Многие программисты подстраховываются на случай, если во время поиска и замены возникнет ошибка из-за разницы в форматировании и используют метод ClearFormatting(). Этот метод очищает форматирование внутри объекта Find (на сам документ это никак не влияет) и позволяет производит поиск без учета форматирования. Например, наш код при использовании этого метода может выглядеть так:

Selection.Find.Text = "2004"

Selection.Find.ClearFormatting

Selection.Find.Replacement.Text = "2005"

Selection.Find.Replacement.ClearFormatting

Selection.Find.Execute Replace:=wdReplaceAll

5.6.6 Объекты Font и ParagraphFormat

Объекты Word.Font и Word.ParagraphFormat, программное изменение оформления документа Word средствами VBA

Эти объекты ответственны за форматирование, соответственно, участков текста и абзацев. Свойства объекта Font позволяют определить все параметры, которые доступны через меню Формат -> Шрифт, а свойства объекта ParagraphFormat — то, что доступно через Формат -> Абзац. Объект Font можно получить через свойство Font, которое есть, в частности, у объектов Selection, Range и Find, а объект ParagraphFormat — через свойство Format, которое есть у объектов Paragraph (для одного абзаца) и коллекции Paragraphs (для нескольких абзацев). Свойство Format, которое возвращает объект ParagraphFormat, есть и объекта Find.

Свойств у объектов Font и ParagraphFormat множество, но все они очевидны. Например, чтобы назначить выделенному тексту шрифт Arial и сделать его полужирным, можно использовать код

Selection.Font.Name = "Arial"

Selection.Font.Bold = True

а чтобы назначить первому абзацу текста выравнивание по ширине, можно использовать команду

Paragraphs(1).Format.Alignment = wdAlignParagraphJustify