Microsoft Office Forums - View Single Post - VBA find keyword and move to location then add symbol

macropod · 10-22-2014, 01:45 AM

You could, for example, use a wildcard Find/Replace, using:

Code:

  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = StrTxt & "[,. ]@<*>[,. ]@<*>[,. ]@<*>[,. ]@<*>[,. ]@"
    .Replacement.Text = "^&" & Chr(123)
    .Forward = True
    .Wrap = wdFindcontue
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With

where StrTxt is the word to find and Chr(123) is the symbol you want to add.