Reset style selection in Find/Replace window

Question

In a Word macro, I have the following statement:

Selection.Find.Style = ActiveDocument.Styles("NeedsAttention")

After I execute the Find/Replace, I want to reset the Selection.Find and Selection.Find.Replacement properties. How do I remove this style setting and set it to nothing? Selection.Find.ClearFormatting doesn't do it.

Answer 1

I wouldn't advise using ActiveDocument.Content.Find directly unless you're doing a ReplaceAll, because the Content object always points to the entire range of the document.

If you instead declare a Range object and initialize it to ActiveDocument.Content or ActiveDocument.Range, then that Range object gets restricted by the Find.Execute statement each time it finds the specified text, pointing only to that specific piece of the text. This is a typical (although useless) example:

Sub x()

    Dim rg As Range

    Set rg = ActiveDocument.Content

    With rg.Find

        .Text = "Word"

        .Forward = True

        .Wrap = wdFindStop

        While .Execute

            rg.Font.ColorIndex = wdRed

            rg.Collapse wdCollapseEnd

        Wend

    End With

End Sub

Answer 2

The two statements Charles suggested should certainly clear styles from the Find & Replace dialog box. It works here (Office 2019, version 2007).

If possible, use Find with a Range object instead. Then there will be no need to reset formatting. A basic example:

With ActiveDocument.Content.Find

'code goes here...

End With

Answer 3

Selection.Find.ClearFormatting clears the Find box.

Selection.Find.Replacement.ClearFormatting clears the Replace box formatting.

Answer 4

Yes, but it doesn't remove the style that was set with:

Selection.Find.Style = ActiveDocument.Styles("NeedsAttention")

How do I remove the style setting?

When I first start Word and open the Find/Replace window, there are no styles selected for the Find text and no styles selected for the Replace text. That's what I'm trying to get back to in my macro after a style has been set for the Find text.

In the Word user interface, I can select "(no style)" in Find > Format > Style. How do I mimic this in a macro?

Answer 5

Good point. Also, I often use the Duplicate method when working on ranges, just in case.