Hi,
just for fun, and I'd rather accept some seconds of waiting
and use range.find while execute i = i + 1 etc., but
it is sometimes very strange, what quirk workaraounds could do,
like this one:
Sub Test115()
Dim i As Long
Dim strMsg As String ' the error message
Dim strCnt As String ' replace counter
Dim dlgtest As Dialog
Set dlgtest = Dialogs(wdDialogEditReplace)
Selection.HomeKey unit:=wdStory
On Error GoTo Message     ' no reason for an error, but still ...
dlgtest.Find = "e"        ' search for "e"
dlgtest.Replace = "e"     ' replace with "e"
SendKeys "%a"
SendKeys "{tab 3}"
SendKeys "{ENTER}"
dlgtest.Display           ' executes ! I wonder!
Message:
strMsg = Err.Description
' isolate the number from the err.description, that's easy
For i = 1 To Len(strMsg)
   If IsNumeric(Mid(strMsg, i, 1)) Then
     strCnt = strCnt & Mid(strMsg, i, 1)
   End If
Next i
MsgBox strCnt
End Sub
---
I wonder, where the error.description comes from,
as there seems not to be any error.
And, further more, "dlgtest.display" shouldn't execute
the search and replace. But it obviously does.
Must have been a disastrous or vice versa very funny day at MS,
when this was coded.
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

Have a look at:

http://gregmaxey.mvps.org/Find_it_tool_bar.htm
It doesn't use replace all, but does provide a count of words found.