I found the first one as my solution. Thanks so much for the links :)
I have a quick question though. What if I need to find two different words to replace? Is there a way to put them together in one macro? If yes, how? Let's say I need to find:
1. find text - replace by "Im found"
2. find number - repalce by "Number found"
Dim rngStory As Range
For Each rngStory In ActiveDocument.StoryRanges
.Text = "find text"
.Replacement.Text = "I'm found"
.Wrap = wdFindContinue