Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim orng As Range
  Set orng = Selection.Range
  orng.Underline = wdUnderlineWavy
  With orng.Find
    .Text = "[ .,:;\!\?" & Chr(9) + Chr(160) & "]"
    .MatchWildcards = True
    .Font.Underline = wdUnderlineWavy
    .Replacement.Font.Underline = wdUnderlineNone
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
End Sub