saying "no" programmatically

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Lighthouse - 21 Mar 2005 22:15 GMT

I recorded a macro that selects my whole document and does a
search/replace, another search/replace, then an update all fields. when
the macro runs on an "autonew" i get a dialog box asking me if I want
to "search the rest of the document -- yes/no" after each of the
search/replace routines.

How do I make the macro answer "no" automatically and unselect my
document when the macro is done running? TIA

Reply to this Message

Chuck - 22 Mar 2005 16:09 GMT

If you post the code it may be easier to see what's going wrong.

> I recorded a macro that selects my whole document and does a
> search/replace, another search/replace, then an update all fields. when
[quoted text clipped - 4 lines]
> How do I make the macro answer "no" automatically and unselect my
> document when the macro is done running? TIA

Reply to this Message

Lighthouse - 23 Mar 2005 21:01 GMT

this is my code:

Sub killtrailsp()
'
' killtrailsp Macro
' Macro recorded 3/21/2005
' this macro is used to eliminate extraneous
' spaces inserted w/ bookmarks and x-refs and
' to ensure all x-refs are updated
'
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " ^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
' Selection.Fields.Update
' ActiveWindow.ActivePane.LargeScroll Down:=5
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " , "
.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.Fields.Update
End Sub

Thanks for taking a look

Reply to this Message