>         dim oApp as Word.Application
>         dim sTextToFind as String
>         dim sReplaceWith as String

>         Set oApp = CreateObject("Word.Application")
>         sTextToFind = "#NAME#"
>         sReplaceWith = "Mike Smith"

>         With oApp.Selection.Find
>             .Forward = True
>             .Wrap = wdFindContinue
>             .ClearFormatting
>             .Replacement.ClearFormatting
>             .Text = sTextToFind
>             .Replacement.Text = sReplaceWith
>             .Execute
>         End With

>  When I run this in a debug session the value of the .Found property is
> true, but the original text is not replaced.

> Thanks in advance,

> Mike

> AFAIK, you have to set a replace parameter of the Execute method, or you
> will only find (not replace) your material.

> Try
> .Execute Replace:=wdReplaceOne
> or
> .Execute Replace:=wdReplaceAll

> HTH

> > Here's the code, running in VB:

> >         dim oApp as Word.Application
> >         dim sTextToFind as String
> >         dim sReplaceWith as String

> >         Set oApp = CreateObject("Word.Application")
> >         sTextToFind = "#NAME#"
> >         sReplaceWith = "Mike Smith"

> >         With oApp.Selection.Find
> >             .Forward = True
> >             .Wrap = wdFindContinue
> >             .ClearFormatting
> >             .Replacement.ClearFormatting
> >             .Text = sTextToFind
> >             .Replacement.Text = sReplaceWith
> >             .Execute
> >         End With

> >  When I run this in a debug session the value of the .Found property is
> > true, but the original text is not replaced.

> > Thanks in advance,

> > Mike