Microsoft Word 2000 версия этой статьи содержатся в разделе 211458.
170725версию Microsoft Word 97 в данной статье, см.
Microsoft Word 98 версии этой статьи содержатся в разделе 183643.
Обзор
Приведенный ниже макрос выполняет поиск указанного стиля в документе 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 для приложений