Recording macro for Find Wildcard

Guessed · #2 09-21-2020, 04:05 PM

Your macro does lots of settings but there is no .Execute appearing anywhere so I'm not surprised that nothing changes.

You don't need multiple steps if you simply apply a Paragraph Style when you find the character in question.

Code:

Sub Macro2()
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Style = ActiveDocument.Styles("Heading 1")
    .Text = "."
    .Replacement.Text = "."
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Wildcard to find any one or more words	Maksymromaniuk	Word	1	11-02-2015 01:04 PM
Need Help With Find and Replace Wildcard	rsrasc	Word VBA	9	10-13-2015 02:37 PM
Find/Replace Wildcard Needed	rsrasc	Word VBA	4	11-11-2014 08:28 AM
Wildcard Find and Replace	Ulodesk	Word	1	06-23-2014 10:26 AM
Need help using WildCard Find & Replace	Cayce	Word	1	06-09-2014 04:17 PM