Hi i was using this code to change multiple words in my document, and
noticed that when you run the macro it only changes one instance of
each word i want to change.
As you might well guess this is a bit of a problem because i will
havet orun the macro x amount of times to change multiple instances of
the same word.

But i have come up with a solution - count all the instances of each
word to replace and then using the count loop through the code

Public Sub change()

Dim ChangeDoc As Document, RefDoc As Document
Dim ctable As Table
Dim oldpart As Range, newpart As Range
Dim i As Long
Dim iCount As Integer
Dim j As Integer

Set RefDoc = ActiveDocument
Set ChangeDoc = Documents.Open("C:\Documents and Settings\terryh
\Desktop\New Folder\ud.xls")
Set ctable = ChangeDoc.Tables(1)
RefDoc.Activate
For i = 1 To ctable.Rows.Count
   Set oldpart = ctable.Cell(i, 1).Range
   oldpart.End = oldpart.End - 1
   Set newpart = ctable.Cell(i, 2).Range
   newpart.End = newpart.End - 1
   Selection.HomeKey wdStory
   Selection.Find.ClearFormatting

   iCount = 0
           Application.ScreenUpdating = False
           With Selection
               .HomeKey Unit:=wdStory
               With .Find
                   .ClearFormatting
                   .Text = oldpart
                   ' Loop until Word can no longer
                   ' find the search string and
                   ' count each instance
                   Do While .Execute
                       iCount = iCount + 1
                       Selection.MoveRight
                   Loop
               End With
           End With
               ' show the number of occurences

   For j = 0 To iCount
       With Selection.Find
       .Execute findText:=oldpart, ReplaceWith:=newpart,
MatchWildcards:=True, Wrap:=wdFindContinue, Forward:=True,
MatchWholeWord:=False
       End With
   Next j

Next i
ChangeDoc.Close wdDoNotSaveChanges

End Sub

I hope this helps people out there who dont want o pay top dollar for
simple find and replace programs