JRobinson22
01-27-2013, 06:22 PM
Hi - A poster on this board was nice enough to create the below macro for me to indent all list paragraphs in long documents I have to format. I'm facing another issue now though because my multi-level lists are all showing up with the same indent (I have pasted an example below the vba code for the macro). I am running several macros at the same time for some long documents I'm formatting, and one of them sets an indent level of .5 inches for any paragraph that contains Times New Roman font. I think this is what's causing the different levels of the multi-level list to show up with the same indent. Can anyone help me figure this out so that my list parargraphs have a .5 inch indent, but additional list levels retain their standard indent? Thanks very much!
Bullet indent macro:
Sub bulletindent()
Dim LP As Paragraph
For Each LP In ActiveDocument.ListParagraphs
LP.Indent
Next LP
End Sub
Example of formatting of multi-level lists in my documents:
Financial wellness – discount programs, making every dollar count</SPAN>
· Your Member Savings
o Complementary and Alternative Medicine
o Footwear @ Marathon
o Weight Watchers
o Diet.com
o Care Scout
o Mindfulness Based Stress Reduction
o Senior Assist
·
Bullet indent macro:
Sub bulletindent()
Dim LP As Paragraph
For Each LP In ActiveDocument.ListParagraphs
LP.Indent
Next LP
End Sub
Example of formatting of multi-level lists in my documents:
Financial wellness – discount programs, making every dollar count</SPAN>
· Your Member Savings
o Complementary and Alternative Medicine
o Footwear @ Marathon
o Weight Watchers
o Diet.com
o Care Scout
o Mindfulness Based Stress Reduction
o Senior Assist
·