Word Document Properties

Listing 5-7
Modifying Words by Using a Do While...Loop Statement
Public Sub ChangeWords()
Dim CurrentWord As Long ‘ Current word selection.
Dim TotalWords As Long ‘ Total number of words
‘ Get the total number of words.
124
Part II: Learning the Ropes 
10_046500 ch05.qxp 12/5/06 5:35 PM Page 124

---

TotalWords = ActiveDocument.Words.Count
‘ Select the first word in the document.
ActiveDocument.Words(1).Select
CurrentWord = 1
‘ Keep selecting words until we run out.
Do While CurrentWord < TotalWords
‘ Make a change based on the word.
Select Case Trim(ActiveWindow.Selection.Text)
Case “Hello”
Selection.Font.Italic = True
Case “Goodbye”
Selection.Font.Bold = True
Case “Yes”
Selection.Font.Color = wdColorGreen
Case “No”
Selection.Font.Color = wdColorRed
End Select
‘ Move to the next word.
CurrentWord = CurrentWord + 1
ActiveDocument.Words(CurrentWord).Select
Loop
End Sub
The code begins by getting the word count for the active document — the
one currently selected for editing. The program uses this number to deter-
mine when to stop making changes. The 
ActiveDocument.Words
document
has a number of other interesting uses (such as those shown in the example
code), so you should keep it in mind when working with Word.
The next task is to select the first word in the document. You do this by
telling 
ActiveDocument.Words
which word to select and then using the
Select
method as shown. It’s also important to keep track of the current
word selection, so the code sets 
CurrentWord
to 
1
. This variable uses the
Long
data type because 
ActiveDocument.Words.Count
can return a 
Long
value. VBA won’t tell you whether you use the wrong data type — you must
verify the data type needs by viewing the return data type from method calls
and properties.
The 
Do While...Loop
structure compares the 
CurrentWord
value with
the 
TotalWords
value. If 
CurrentWord
is less than 
TotalWords
, it exe-
cutes the statements contained within the structure.
125