Prepare yourself for eye strain

Quote Originally Posted by Frosty
The following even makes more sense to me... as an alternative (I know, I need to take a look at how your addin is structured... I promise, I will).
[vba]
Sub Test3()
Dim rngStory As Range

Set rngStory = ActiveDocument.StoryRanges(wdTextFrameStory)
Do Until rngStory Is Nothing
With rngStory.Find
.text = "Here I am"
.Replacement.text = "Found it"
.Execute Replace:=wdReplaceAll
End With
Set rngStory = rngStory.NextStoryRange
Loop
End Sub
[/vba]