Search & replace: capture wildcard groups and set a bold formatting

[alex100]

I would like to replace some keywords using wildcards, while also capturing the wildcard group and applying bold formatting to the matches. I have two codes so far, but neither one accomplishes both requirements.



The first code captures the group but does not set the bold formatting:

With Selection.Find
    .Text = "(wildcard_pattern_here)"
    .Replacement.Text = "original text: \1"
    .Replacement.Font.Bold = True
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute replace:=wdReplaceAll

The second code does the exact opposite - applies the bold formatting but does not insert captured groups in the replacement text:

With Selection.Find
    .Text = "(wildcard_pattern_here)"
    .Replacement.Text = "original text: \1"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do While .Execute
        Selection.Font.Bold = True
        Selection.TypeText Text:=.Replacement.Text
    Loop
End With

How can I achieve both requirments at the same time, please?

Thank you!

Alex

[gmayor]

With Selection.Find
    .Text = "((wildcard_pattern_here)"
    .Replacement.Text = "original text: \1"
    .Replacement.Font.Bold = True
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

[alex100]

All right, so the '.Format' setting was the one preventing the style change.

Thank you, it works great now!

Alex

[alex100]

I would not want to open another thread just for this, so I have one more related question if you do not mind...

This RegEx matches one to ten uppercase words, divided by a space character and ending with a colon and space.

.Text = "([A-Z]@ ){1,10}[A-Z]@: "
.Replacement.Text = "> \1"

It works good as it is listed above, but when I try to enclose it between two parentheses (to capture the group), I get a 'not valid pattern expression' error. The code is this:

.Text = "(([A-Z]@ ){1,10}[A-Z]@: )"
.Replacement.Text = "> \1"

How should I write the wildcard pattern, please?

Alex

[alex100]

Ok, problem solved, I changed the pattern with the one below and it works good now.

.Text = vbCr & "([A-Z ]{1,50}): "
.Replacement.Text = "> \1"

Alex

[gmayor]

See Replace using wildcards