Microsoft Office Forums - View Single Post - [Solved] Insert Paragraph after each list item

gmaxey · 05-07-2016, 01:23 PM

You might hit and error or have to do a little cleanup but try:

Code:

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