Replacing text with field content

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

OrthoPod - 09 Sep 2004 17:52 GMT

I have several thousand documents from which I want to remove the
identifying names in the text. For each document, I can easily
identify the relevant name programatically (it always occurs in the
same place in the document), but subsequent occurances are randomly
placed.
I have tried to do this by making the initial name occurance a
bookmark, and then enter that in the Find & Replace dialogue, but I
can't seem to find a way to get the F&R to read the field-name (in
{}'s ) as a variable rather than a literal string.
Since I am new to writing VBA, I am probably missing something
painfully obvious. Any help/advice anyone can give me would be much
appreciated.

Thanks,
JM

Reply to this Message

Doug Robbins - 10 Sep 2004 00:33 GMT

If you have the code to locate and select the name, the following will
delete all occurences of it in the document:

Dim mystr As String
mystr = Selection.Text
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:=mystr, MatchWildcards:=False,
Replacewith:="", Wrap:=wdFindContinue, Forward:=True, Replace:=wdReplaceAll)
= True
Loop
End With

To set up a batch process to handle all of the documents, see the article
"Find & ReplaceAll on a batch of documents in the same folder" at:

http://word.mvps.org/FAQs/MacrosVBA/BatchFR.htm

Signature

Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

>I have several thousand documents from which I want to remove the
> identifying names in the text. For each document, I can easily
[quoted text clipped - 11 lines]
> Thanks,
> JM

Reply to this Message

Jim Michelson - 10 Sep 2004 16:15 GMT

Thanks. This looks like it should do what I want. I'll let you know.

Jim

> If you have the code to locate and select the name, the following will
> delete all occurences of it in the document:
[quoted text clipped - 14 lines]
>
> http://word.mvps.org/FAQs/MacrosVBA/BatchFR.htm

Reply to this Message

Rate this thread: