Пример макроса, который использует цикл для поиска текста в документах Word

Обзор

Приведенный ниже макрос выполняет поиск указанного стиля в документе Microsoft Word 2002, Microsoft Office Word 2003 или Microsoft Office Word 2007 и добавляет текст в начало каждого вхождения, которое оно находит.

Дополнительные сведения

Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и без явных или подразумеваемых гарантий. Это включает, но не ограничиваясь, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры, но не выполнять модификации примеров для обеспечения дополнительных функциональных возможностей или создания процедур для определенных требований.

Sub EditFindLoopExample()
'This example inserts "Tip: " at the beginning of
' every paragraph formatted with the Heading 3 style.
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Style = wdStyleHeading3
        'The Do...Loop statement repeats a series of
        ' actions each time this style is found.
        Do While .Execute(Forward:=True, Format:=True) = True
                With .Parent
                    'If the found text is the last
                    ' paragraph in the document...
                    If .End = ActiveDocument.Content.End Then
                        .StartOf Unit:=wdParagraph, Extend:=wdMove
                        .InsertAfter "Tip: "
                        Exit Do
                    'If the found text is *not* the last
                    ' paragraph in the document...
                    Else
                        .StartOf Unit:=wdParagraph, Extend:=wdMove
                        .InsertAfter "Tip: "
                        .Move Unit:=wdParagraph, Count:=1
                    End If
                End With
        'Goes back to the beginning of the Do...Loop statement.
        Loop
    End With
End Sub

Ссылки

Дополнительные сведения о поиске текста в документах Word, в окне редактора Visual Basic в меню Справка пункт Справка: Microsoft Visual Basic , введите в поле помощника Office или мастера ответов найти объект и нажмите кнопку Найти для просмотра раздела.

Дополнительные сведения о том, как использовать примеры кода в этой статье щелкните следующий номер статьи базы знаний Майкрософт:

290140 OFFXP: запуск кода примера из статей базы знаний

Дополнительные сведения о получении справки по Visual Basic для приложений щелкните следующий номер статьи базы знаний Майкрософт:

305326 OFFXP: программные ресурсы для Visual Basic для приложений