I would be grateful if someone could help with this before I go completely insane. What I want to do is obtain the name of the font used for the number in a heading style (e.g. “Heading 1”).
‘With this, I can get the font properties of heading style text
With ActiveDocument.Styles(“heading 1”)
With .Font
MsgBox (.Name)
‘…
End With
End With
‘With this, I can get non-font properties of heading style numbers
With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
MsgBox (.StartAt)
‘…
End With
‘Using the same successful calls and syntax used in the examples above, I can get font properties of heading style numbers except for the font name. Am I doing something stupid here is Word known not to reveal what I seek?
With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
With .Font
MsgBox (.Name)
MsgBox (.Italic)
‘…
End With
End With
Thanks.