Как можно получить список только тех стилей, которые видны в панели стили Word?
Цитата:
которые видны в панели стили Word?
Как мне посмотреть эту панель? Какая у вас версия Ворда и куда надо щёлкать, чтобы увидеть эту панель? Можете сделать скриншот.
Word 2010. Снимок прикрепил.
В Ворде какой-то сбой, а может так и надо, а может это только у меня: макрос возвращает стили, которых нет в коллекции стилей (например, стили-заголовки). Кроме того, в области Стили, если щёлкнуть по стрелке справа от стиля-заголовка, есть пункт "Удалить из коллекции стилей", но стиля нет в коллекции стилей.
Поэтому этот макрос возвращает не только стили, которые видны в коллекции стилей, но ещё некоторые другие. Возможно эти стили всегда так себя ведут. Другого инструмента для работы с коллекцией стилей я не знаю.
Макрос
Sub Макрос()
Dim style As style, cln_Styles As New Collection
Dim i As Long
' Цикл по всем стилям в активном файле.
For Each style In ActiveDocument.Styles
' Если стиль из коллекции стилей.
If style.QuickStyle = True Then
' Запись имени стиля в коллекцию "cln_Styles".
cln_Styles.Add Item:=style.NameLocal
End If
Next style
' Вывод стилей в View - Immediate Window.
For i = 1 To cln_Styles.Count
Debug.Print cln_Styles(i)
Next i
End Sub
Большое спасибо!
Да, стили-заголовки и у меня отобразились 9 шт., хотя в области Стили их видно у меня в файле только 3 шт. Но это все-равно решает задачу.
Я понял логику Ворда, почему на мониторе пользователь не видит в коллекции стилей стиль, а макрос возвращает стиль.
Это связано с тем, что некоторые стили появляются в коллекции стилей, когда происходит какое-то изменение в файле.
Например, если появился Заголовок 5, то в коллекции появится Заголовок 6. Это связано с таким явлением: Показывать следующий заголовок, когда используется предыдущий уровень (это в области "Стили" - внизу "Параметры..."). Поэтому, когда вы примените например Заголовок 5, то в коллекции стилей появится Заголовок 6, хотя до этого его не было.
Заголовок оглавления появляется в коллекции стилей, когда вставляется встроенное оглавление (оно выбирается из списка и вместе с оглавлением вставляется заголовок "Оглавление").
Стиль "Название объекта" появляется, когда в файл вставляется перекрёстная ссылка: вкладка "Ссылки" - кнопка "Вставить название".
Как вернуть, только те стили, которые видны в коллекции стилей, пока не знаю.
Спасибо за разъяснение.