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

dan88 · 05-07-2016, 08:16 AM

Hi all,

I have lots of lists in the document that need to be formatted a certian way - they need to have a paragraph inserted after it.

I would like to do this for all my lists

Here is example attachement image

i have started basic idea

Code:

Sub SpaceLists()

Dim oPara As Word.Paragraph

 For Each oPara In ActiveDocument.Paragraphs
        If oPara.Range.ListFormat.ListType = wdListBullet Then
        
        oPara.Next.Range.InsertAfter = normalPara
        
        

End Sub

am i on the right track?

thank you

dan