Microsoft Office Forums - View Single Post - Need Help Deleting Numbers in Hour Format and Numbers in Sequence

Guessed · 10-12-2016, 02:49 PM

Try this

Code:

Sub Macro3()
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^13[0-9]{1,4}^013*[0-9]{2},[0-9]{3}^013"
    .Replacement.Text = "^p"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With