Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 11/20/2017
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  oRng.InsertBefore vbCr
  With oRng.Find
    .Text = "([^13^11])(*): "
    .MatchWildcards = True
    .Replacement.Text = "\1"
    .Execute Replace:=wdReplaceAll
  End With
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = " -*(^^)"
    .MatchWildcards = True
    .Replacement.Text = "\1"
    .Execute Replace:=wdReplaceAll
  End With
  ActiveDocument.Paragraphs(1).Range.Delete
lbl_Exit:
  Exit Sub
End Sub