VBA Find and Replace for sub levels

Shelley Lou · #1 06-20-2021, 04:00 AM

Hi, I'm looking to update the code below. It needs to insert a tab at the beginning of sentences for sub-levels which it currently does as it stands at the moment. I want the macro to also convert any instances of a single bracket sub level e.g. a), i), A), 1) to (a), (i), (A), (1) but I can't seem to fathom how to do this. Can anyone help at all? Thanks

Sub Level Test Doc.docx

Code:

Set orng = ActiveDocument.Range
 'insert tab at beginning of paragraph with a bracket e.g. (a), a), (i), i), (1), 1)
  With orng.Find
        .MatchWildcards = True
        .Text = "^13(\([a-z0-9]{1,}\))"
        .Replacement.Text = "^p^t\1"
        .Execute Replace:=wdReplaceAll
    End With

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