Get Heading Number's Color

Need help trying to find the color of a heading number's color index. I've got the following that gives me the numbering:

Code:

---

Sub Test()
'
' Test Macro
'
'
    Dim oHdr As Range
   
    Set oHdr = ActiveDocument.GoTo(what:=wdGoToHeading, which:=wdGoToFirst)
   
    Debug.Print oHdr.ListFormat.ListString

End Sub

---

Is there a way to get the color index of the heading number from the current heading in oHdr range?

Hi!,

Try with this line :

Code:

---

Debug.Print oHdr.Font.ColorIndex

---

Souriane