detecting bullet style?

[ivo]

Can anybody give some advice how to detect which one of bullet style is
applied to list. I know how to detect difference between bullets and
numbered styled list, but i want to differ is it roman style or for example
is it circle or square?

Ivo
thanks a lot for any help.

 

[Jean-Guy Marcil]

Can anybody give some advice how to detect which one of bullet style is
applied to list. I know how to detect difference between bullets and
numbered styled list, but i want to differ is it roman style or for example
is it circle or square?

Here is some code to get you going.
It copies the currently selected bullet at the end of the document.


Dim rngCurrent As Range
Dim rngCopyBullet As Range

Set rngCurrent = Selection.Range.Paragraphs(1).Range
Set rngCopyBullet = ActiveDocument.Range

With rngCopyBullet
.Collapse wdCollapseEnd
.InsertAfter ChrW(AscW(rngCurrent.ListFormat.ListString))
.Font.Name = rngCurrent.ListFormat.ListTemplate.ListLevels(1).Font.Name
End With

MsgBox Hex(AscW(rngCurrent.ListFormat.ListString)) & vbCrLf _
& "And the font used is " & _
vbCrLf & rngCurrent.ListFormat.ListTemplate.ListLevels(1).Font.Name

 

[ivo]

thanks a lot!!!! that's it!