Microsoft Office Forums - View Single Post - [Solved] Word VBA

netchie · 03-18-2013, 10:03 AM

Oh wait! I think I got it! Found it while surfing

Here is theVBA for those who needs similar VBA

Code:

Sub RemoveWord()
Dim rngStory As Range
For Each rngStory In ActiveDocument.StoryRanges
  With rngStory.Find
    .Text = "Do"
    .Replacement.Text = "Done
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
  End With
Next rngStory
End Sub

But still, to to the guys who always helping me here. You guys ROCK!

Thanks,
netchie