Clear find/replace text

[Drake]

Hi. I am trying to clear the Find/Replace text after my project runs. I
use the code located here -
http://word.mvps.org/FAQs/MacrosVBA/ClearFind.htm.

Here is exactly what my code looks like. The problem is that it is not
clearing the find box of a search that was done while the program was
running. Any help is much appreciated!

Drake
---------------------
Sub clearformatting()

With Selection.Find
.clearformatting
.Replacement.clearformatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With



End Sub

 

[Doug Robbins]

Add .Execute as in:

With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With


--
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