Hi,

This is driving me crazy. I keep trying to create a vba to remove and add a word but it's not working. I'm a newbie on VBA and keep surifng to find something like what I have but I couldn't find anything. What I'm trying to do is:

1. The word "Done" is incomplete on my text table (header section). What I have is "Do" instead of "Done". so I need to have a VBA to automatically add "ne" with it.

2. Remove the word "Pass" from the header.

Your help is highly appreciated.


Thanks so much
n

Hi

You need to use Selection.Find / Document.Find method to find and replace a word. You need to do this cautiously (keep wholewords for Do to Done etc..)

Here are some good links:

http://word.mvps.org/faqs/customizat...ceAnywhere.htm

http://social.msdn.microsoft.com/For...-b84c4958f9db/


Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Hi Shasur,

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"



Sub FindAndReplaceFirstStoryOfEachType()

Dim rngStory As Range

For Each rngStory In ActiveDocument.StoryRanges

With rngStory.Find

.Text = "find text"

.Replacement.Text = "I'm found"

.Wrap = wdFindContinue

.Execute Replace:=wdReplaceAll

End With

Next rngStory

End Sub


Thanks,
netchie

Hi Netchie

you can have an array with the find and replacement text. Then loop through the array to iteration.

If you are using selection.find then use selection.homekey before each iteration


Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Thanks Shasur! :)

How about let's say the word is not always the same to change? I tried the VBA for a wrong word to change from "Desc" to "Description" but it changed the following:

1. Desc to Description (which is correct)
2. Descr to Descriptioncr (which the extra cr still intact)
3. Descrip (which is rip still intact)

Hi Netchie

You need to use the WholeWord and other options that come with the Find

ActiveDocument.Content.Find.MatchWholeWord = True

of

Selection.Find.MatchWholeWord = True

will ensure that Desc will search for Desc alone, Description, Describe will not be searched

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)