使用word宏循环查找

1. Sub EditFindLoopExample()
2. 'This example inserts "Tip: " at the beginning of
3. ' every paragraph formatted with the Heading 3 style.
4.     With ActiveDocument.Content.Find
5.         .ClearFormatting
6.         .Style = wdStyleHeading3
7.         'The Do...Loop statement repeats a series of
8.         ' actions each time this style is found.
9.         Do While .Execute(Forward:=True, Format:=True) = True
10.                 With .Parent
11.                     'If the found text is the last
12.                     ' paragraph in the document...
13.                     If .End = ActiveDocument.Content.End Then
14.                         .StartOf Unit:=wdParagraph, Extend:=wdMove
15.                         .InsertAfter "Tip: "
16.                         Exit Do
17.                     'If the found text is *not* the last
18.                     ' paragraph in the document...
19.                     Else
20.                         .StartOf Unit:=wdParagraph, Extend:=wdMove
21.                         .InsertAfter "Tip: "
22.                         .Move Unit:=wdParagraph, Count:=1
23.                     End If
24.                 End With
25.         'Goes back to the beginning of the Do...Loop statement.
26.         Loop
27.     End With
28. End Sub