Word will display the Adjust List Indents dialog box, assuming that you are dealing with a single-level list. Right-click (without losing the selection) and choose Adjust List Indents from the context menu. Select Case ActiveDocument.Paragraphs(i).Ĭase Is = WdListType.wdListBullet And ActiveDocument.Paragraphs(j). = WdListType.wdListBullet And ActiveDocument.Paragraphs(k). = WdListType.wdListBulletĪctiveDocument.Paragraphs(i).SpaceBefore = 0ĪctiveDocument.Paragraphs(i).SpaceAfter = 0Ĭase Is = WdListType.wdListBullet And ActiveDocument.Paragraphs(j). = WdListType.wdListBullet And ActiveDocument.Paragraphs(k). WdListType.wdListBulletĪctiveDocument.Paragraphs(i).SpaceAfter = 3Ĭase Is = WdListType.wdListBullet And ActiveDocument.Paragraphs(j). WdListType.wdListBullet And ActiveDocument.Paragraphs(k). = WdListType.wdListBulletĪctiveDocument.Paragraphs(i).SpaceBefore = 3Ĭase Is = WdListType.wdListBullet And ActiveDocument.Paragraphs(j). WdListType.wdListBullet And ActiveDocument.Paragraphs(k). WdListType.wdListBulletĪctiveDocument.Paragraphs(i). Click the very first bulleted symbol in the list, so that Word selects all the bullet symbols. I was able to do it using the following code, if anyone needs something similar: Sub ParagraphCnt() 'for bullets w/ no bullet above, bullet belowĬase Is = WdListType.wdListBullet And Selection.Paragraphs(negPara). WdListType.wdListBullet And Selection.Paragraphs(posPara). = WdListType.wdListBulletĬase Is = WdListType.wdListBullet And Selection.Paragraphs(negPara). WdListType.wdListBullet And Selection.Paragraphs(posPara). WdListType.wdListBullet 'for bullets w/ bullet above but none belowĬase Is = WdListType.wdListBullet And Selection.Paragraphs(negPara). = WdListType.wdListBullet And Selection.Paragraphs(posPara). WdListType.wdListBullet Select Case Ĭase Is = WdListType.wdListBullet And Selection.Paragraphs(negPara). = WdListType.wdListBullet And Selection.Paragraphs(posPara). = WdListType.wdListBullet 'negpara = line before selected paragraph Parapos = ActiveDocument.Range(0, Selection.Paragraphs(1).Range.End).unt 'parapos = position of selected paragraph (index) I've tried the following code, but receive an error stating 'The requested member of the collection does not exist.' Sub BulletAdjust() A bullet at the end of a list will have 0pt space above and 0 pt below.A bullet between two bullets will have 0pt space above and below.If all you want to do is add more space between bullets and.

On the Indents and Spacing tab, under Spacing, clear the check from Don’t add space between paragraphs of the same style. Click Home > Paragraph Dialog Box Launcher. The first bullet of a list will have a 3pt space between the prior paragraph and 0pt between between the next bullet (3pt above, 0pt below) Change line spacing between bullets in a list.The formatting guidelines for our report are:

I need a macro which can scan through all bullets in a word document and adjust the spacing based on the paragraph lines above and below. Line indents and spacing After adding a numbered list, you probably notice a few things: Word indents the list a quarter of an inch to the right of the left margin.

Word bullet line spacing