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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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