Microsoft Office Forums - View Single Post - [Solved] Find and replace text with wildcards

macropod · 06-30-2019, 01:06 AM

As I said in post #12, you need todo an ordinary Find/Replace before the wildcard Find/Replace. Therefore, you would need to use:

Code:

With wdDoc
  .ConvertNumbersToText (wdNumberAllNumbers)
  With .Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Format = False
    .Wrap = wdFindContinue
    .MatchWildcards =False
    .Text = "^w^p"	
    .Replacement.Text = "^p"
    .Execute Replace:=wdReplaceAll
    .MatchWildcards = True

But this line is invalid:

Code:

.Text = "([0-9]{1,})[!^13]@| ([A-Z]{2}_[A-Z0-9^13]{8,9}>)^13"^p"

especially the ^p" ending. For starters, you can't use ^p for a wildcard Find and the " introduces yet another error, since you already have a terminating " before the ^p.