1 Тема от suslov

  • suslov
  • сержант
  • Неактивен
  • Зарегистрирован: 14.02.2014
  • Сообщений: 17

Тема: Узнать по стилю его уровень

Добрый вечер!
Имеется ссылка на переменную со стилем. Как по этой ссылке узнать, что это, например, заголовок 3-го уровня или какого-нибудь другого?

Sub test()
    Dim st As Style
    Set st = ActiveDocument.Styles(wdStyleHeading3)
    MsgBox st.ListLevelNumber
End Sub

В данном пример ListLevelNumber = 0, хотя сам заголовок явно 3-го уровня. Как получить номер уровня?

Понимаю, что можно сравнивать переменную стиля с другими заранее известными стилями, например, ActiveDocument.Styles(wdStyleHeadingN), но это не всегда работает, поскольку пользователь может создать свои стили заголовков, не основываясь на стандартных. Ниже пример:

Узнать по стилю его уровень
Но при этом понятно, что уровень структуры 1.

Спасибо!

2 Ответ от suslov

  • suslov
  • сержант
  • Неактивен
  • Зарегистрирован: 14.02.2014
  • Сообщений: 17

Re: Узнать по стилю его уровень

Ответ:

Sub test()
    Dim st As Style
    Set st = ActiveDocument.Styles(wdStyleHeading3)
    MsgBox st.ParagraphFormat.OutlineLevel
End Sub