Microsoft Office Forums - View Single Post - [Solved] Help with macro

gmayor · 02-16-2021, 06:36 AM

It appears from your illustrations that you want to begin every paragraph with a tab thus

Code:

With orng.Find
    .MatchWildcards = False
    .Text = "^p"
    .Replacement.Text = "^p^t"
    .Execute Replace:=wdReplaceAll
End With

If you only want to process the 'numbered' paragraphs that match your comments then

Code:

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

See Replace using wildcards