Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
Dim oParNew As Paragraph
  For Each oPar In ActiveDocument.Paragraphs
    If oPar.Range.ListFormat.ListType = 3 Then
      oPar.Next.Range.Select
      If oPar.Next.Range.ListFormat.ListType = 3 Then
        oPar.Range.InsertAfter vbCr
        Set oParNew = oPar.Next
        oParNew.Style = "Normal"
      End If
    End If
  Next
End Sub