Microsoft Office Forums - View Single Post - [Solved] Need some vba code to search a word document an replace it if len = 3

gmayor · 10-23-2016, 09:00 PM

Search for br.[!0-9] with the wildcard option set. http://www.gmayor.com/replace_using_wildcards.htm

Code:

Sub Replace_br()
Dim orng As Range
    Set orng = ActiveDocument.Range
    With orng.Find
        Do While .Execute(FindText:="br.([!0-9])", ReplaceWith:="bread\1", MatchWildcards:=True)
            orng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set orng = Nothing
    Exit Sub
End Sub