I have recorded this little macro, and it works find. It is just that every
time I run the macro I get a question: "do you want to search the reminer of
the document?" I don't want see this question! I want the the answer to be
always "no"
How do I do this?
Thanks!
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Style = ActiveDocument.Styles("Normal")
End Sub
Graham Mayor - 02 Jan 2006 12:33 GMT
Change the line
.Wrap = wdFindAsk
to
.Wrap = wdFindStop

Signature
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> I have recorded this little macro, and it works find. It is just that
> every time I run the macro I get a question: "do you want to search
[quoted text clipped - 21 lines]
> Selection.Style = ActiveDocument.Styles("Normal")
> End Sub