Insert Paragraph after each list item

dan88 · #1 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding another item to the end of an existing list	cdrdash	Word	2	01-28-2015 09:53 AM
insert linked item in email	userman	Outlook	0	06-14-2012 12:27 AM
Multilevel lists and paragraph indentation	computerdummy	Word	2	04-27-2012 02:32 PM
Insert an item to excel specific cell	apjneeraj	Excel	0	01-18-2011 03:39 AM
Referens to an item list...	matbli	Word	0	10-29-2009 08:04 AM