Microsoft Office Forums - View Single Post - [Solved] Need macro to fill the values in msword based on the excel sheet info

macropod · 08-28-2018, 09:18 PM

As I said, you can do it via Find/Replace. You could even record a macro for that!

Nevertheless, insert:

Code:

  With .Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .MatchWildcards = True
    .Forward = True
    .Format = False
    .Wrap = wdFindContinue
    .Text = "(PV: )RR([0-9])"
    .Replacement.Text = "\1\2"
    .Execute wdReplaceAll
    .Text = "(PV:)RR([0-9])"
    .Replacement.Text = "\1 \2"
    .Execute wdReplaceAll
  End With

before the final 'End With' in the code you're already using.