How to Use Wildcards to Find Specific Text Patterns with sub-levels

macropod · #2 01-24-2025, 09:27 PM

.Text = "[0-9].[0-9a-z\(\)]{1,}"

Code:

Sub Demo()
Application.ScreenUpdating = False
Options.DefaultHighlightColorIndex = wdYellow
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[0-9].[0-9a-z\(\)]{1,}"
    .Replacement.Highlight = True
    .Replacement.Text = "^&"
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Forward = True
    .Format = True
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and replace text in a document with wildcards in vba	marcotte974	Word VBA	2	06-22-2022 10:38 PM
VBA Find and Replace for sub levels	Shelley Lou	Word VBA	2	06-21-2021 12:45 AM
find/replace all text not a specific colour?	LQuinn	Word VBA	3	04-06-2021 04:51 PM
Find and replace text with wildcards	arunchandar9	Word VBA	15	06-30-2019 01:06 AM
Using wildcards how do I Find and Add to, not replace	Stargehzer	Word	3	01-25-2016 09:14 PM