Find & Replace

Iâ??m using Windows XP and Word 2003. Word has a Find and Replace feature.
How do I implement this to find all sequences of letters, symbols, and
numbers between a specific word ,â??Startâ??, to the end of the line so that it
can be replaced with a new set of letters, numbers and symbols.

Example:
Start <Appendix 12A>

HelmutWeber
Mon Jun 26 06:22:02 CDT 2006

Hi Jay,

lines or paragraphs?

Paragraphs look like

Start <Appendix 12A>¶

At least most often they do.

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000 (german versions)

Graham
Mon Jun 26 06:27:11 CDT 2006

See http://www.gmayor.com/replace_using_wildcards.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

jay wrote:
> I'm using Windows XP and Word 2003. Word has a Find and Replace
> feature. How do I implement this to find all sequences of letters,
> symbols, and numbers between a specific word ,"Start", to the end of
> the line so that it can be replaced with a new set of letters,
> numbers and symbols.
>
> Example:
> Start <Appendix 12A>

jay
Mon Jun 26 07:21:02 CDT 2006

Paragraphs

"Helmut Weber" wrote:

> Hi Jay,
>
> lines or paragraphs?
>
> Paragraphs look like
>
> Start <Appendix 12A>¶
>
> At least most often they do.
>
> --
> Greetings from Bavaria, Germany
> Helmut Weber, MVP WordVBA
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000 (german versions)
>
>
>
>

HelmutWeber
Mon Jun 26 08:41:02 CDT 2006

Hi Jay,

there are people around who are more expert than me.
However, the following may be sufficent.

Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Text = "(Start )\<*\>^13"
.MatchWildcards = True
.Replacement.Text = "\1new value^p"
.Execute Replace:=wdReplaceAll
End With


--
Greetings from Bavaria
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000 (german versions)