Word.Tips.Net Welcome toWord.Tips.Net

Helpful Links

Tips.Net Home
WordTips Home

Ask a Word Question
Make a Comment

Tips.Net Store

WordTips FAQ
WordTips Premium

Learn Access Now
Free Printable Forms

Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips

Advertise on the
WordTips Site

Newest Tips

Setting Fraction Bar Overhang Spacing in the Equation Editor

Printing On Both Sides of the Paper

Turning Off AutoComplete for Dates

Ordering Search and Replace

Understanding Auto Line Spacing

Adding Comments to Your Document

Conditional Calculations in Word

 

Repeating in a VBA Macro

Summary: How to loop through a complete document in your VBA macro. (This tip works with Microsoft Word 97, Word 2000, Word 2002, and Word 2003.)

One of the most common things you need to do when creating a macro is to repeat a block of actions for each occurrence of something within a file. This may sound strange, but those who program know the situation very well--you need to search through a file and then take some action, repeat the search and repeat the action, and so on until the end of the file is reached. The general approach is as follows:

Selection.HomeKey Unit:=wdStory
[set up for your search]
Selection.Find.Execute
While Selection.Find.Found
    [take some action]
    Selection.Find.Execute
Wend

The first line in this example moves to the beginning of the document. You then use whatever commands necessary to set up for your search. When the Selection.Find.Execute line is encountered, Word performs the actual search. Then Selection.Find.Found is used to control the While ... Wend loop. This property (Selection.Find.Found) is set to True each time an executed search actually results in something being found. Thus, the whole While ... Wend loop is repeated over and over again, as long as whatever you are searching for continues to be found. As the last step in the loop, the Selection.Find.Execute statement is used to once again perform the search.

Tip #1083 applies to Microsoft Word versions: 97 | 2000 | 2002 | 2003

Save Time! WordTips has been published weekly since early 1997. Past issues are available in convenient WordTips archives. Have your own enhanced archive of WordTips at your fingertips, available to use at any time!
 
Check out WordTips Archives today!