Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
'Graham Mayor - http://www.gmayor.com - Last updated - 25 Jun 2017
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .Text = "^13{2;}" 'Note the list separator character - here ;
        .Replacement.Text = "^p"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
    If Len(ActiveDocument.Range.Paragraphs.Last.Range) = 1 Then
        ActiveDocument.Range.Paragraphs.Last.Range.Delete
    End If
lbl_Exit:
    Exit Sub
End Sub