Cleaning Up After Macro Runs

[mcp6453]

The following macro works well to turn two or more sequential spaces
into a single space:

With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = " {2,}" 'Search for two or more spaces
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True 'Set this to true.
.Execute Replace:=wdReplaceAll
End With

However, after the macro runs, "MatchWildcards" remains set to True. How
can I set it to False? What other clean up would be a good practice to
follow after running this macro?

 

[Tony Jollans]

The best practice would be to use a Range rather than the Selection:

Set TempRange = Selection.Range
With TempRange.Find
' rest of your code
End With
Set TempRange = Nothing

This way, no settings of the Selection.Find object get changed at all.

 

[mcp6453]

The best practice would be to use a Range rather than the Selection:

Set TempRange = Selection.Range
With TempRange.Find
' rest of your code
End With
Set TempRange = Nothing

This way, no settings of the Selection.Find object get changed at all.

Beautiful. Thanks. I sure wish I understood this stuff better.

Can you recommend a book or online course?