VBA find keyword and move to location then add symbol

macropod · #4 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how to find and replace a symbol with another symbol	wondermuse	Word	5	10-09-2014 06:30 AM
Move shape to bookmark location	Byron Polk	Word VBA	4	08-07-2014 03:21 AM
How to either move document display to right or left; or reduce size of find/replace window.	pmstock	Word	2	08-02-2014 08:34 PM
Find keyword in section & delete section	donaldadams1951	Word VBA	5	12-03-2013 10:08 AM
Move pst location?	markg2	Outlook	0	06-29-2013 11:00 AM