How does one select bulleted text?

[Robbie]

Hi
Can anyone help me with the code to search through a
document looking for paragraphs that are bulletted or
numbered, and then then setting the indents and tabs the
same for each one?
I found objects called "listgallery", "ListLevel"
& "ListTemplate" & their collections in the help file, but
can't make head nor tail of the rest of the jargon!

Should end up something like:

For each myParagraph in ActiveDocument
If myParagraph is bulleted or numbered then
TabStop = x cm
Indent = y cm
Else next myParagraph
End if
Next

Thanks in advance

 

[Helmut Weber]

Hi Robbie,
are you looking for something like this:
Dim oPrg As Paragraph
For Each oPrg In ActiveDocument.ListParagraphs
oPrg.LeftIndent = CentimetersToPoints(1.5)
oPrg.RightIndent = CentimetersToPoints(1.5)
oPrg.FirstLineIndent = CentimetersToPoints(1.5)
' and still more possibilities
Next
Here and now I have to minimze the window
and maximize it again, to make word show
all the changes.

 

[Robbie]

Thanks Helmut
Just what I'm looking for.
Robbie