VBA Find and Replace for sub levels

macropod · #1 06-20-2021, 04:17 PM

For example:

Code:

With ActiveDocument.Range.Find
  .MatchWildcards = True
  .Text = "^13([\(a-z0-9]@\))"
  .Replacement.Text = "^p^t\1"
  .Execute Replace:=wdReplaceAll
End With

Shelley Lou · #2 06-21-2021, 12:45 AM

Hi Macropod, many thanks for this, much appreciated

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do you use the find and replace tool to find dates and times in Excel 2013?	Jules90	Excel	3	04-14-2020 07:40 PM
In Find and Replace, can Word stop after each Replace?	wardw	Word	1	06-08-2017 02:47 PM
Find what box in Find and replace limits the length of a search term	Hoxton118	Word VBA	7	06-10-2014 05:05 AM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM
Help with find and replace or query and replace	shabbaranks	Excel	4	03-19-2011 08:38 AM