detecting bullet style?

I

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.
 
J

Jean-Guy Marcil

ivo said:
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?
Click to expand...

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
 
Top