Я устанавливаю формат, который будет использоваться многими людьми в разных отделах. Я не хочу, чтобы каждый выбирал другой стиль таблицы из 140 или около того встроенных стилей. Я хочу, чтобы они выбрали один из двух моих вариантов. Как исключить появление встроенных стилей в раскрывающемся списке « Table Tools > « Design ?
1
2 ответа
0
Одним из простых решений было бы удалить стили в папке, где они находятся.
Насколько мне известно, нет способа заблокировать встроенные стили.
0
Пытаясь достичь того же результата, я случайно наткнулся на решение, которое приносит удовольствие (потратив часы на эту проблему и решив, что эти неприятности невозможно скрыть).
Этот макрос имеет две функции - первая отключает видимость всех стилей, включая стили таблиц; вторая включает видимость только для указанных стилей. Это комментируется, но, пожалуйста, обратите внимание, что свойство Visibility, кажется, работает совершенно нелогично в этом контексте, то есть on/true = не видно и off/false = видимое. Пойди разберись.
Вы также увидите, что мой список стилей для отображения включает в себя как встроенные, так и пользовательские стили - здесь вы бы добавили свои стили таблиц.
К сожалению, я один из этих энтузиастов-копировщиков, поэтому я, вероятно, не смогу предложить какую-либо дополнительную помощь, если это не поможет вам. (Но мои собственные попытки создать стиль таблицы по умолчанию в точности так, как я хочу для своего шаблона, были полностью разбиты Word 2010 - поэтому, если вы добились успеха, мне было бы интересно узнать, как вы это сделали!).
надеюсь это поможет
Neil
Во всяком случае ... на с кодом:
Sub RehideStyles()
'
'
'
Dim oSty As Style
Dim oArray As Variant
Dim n As Long
'Start deselecting all - NOTE: Visibility = true means NOT VISIBLE!
With ActiveDocument
For Each oSty In .Styles
.Styles(oSty.NameLocal).Visibility = True
Next oSty
'Display the desired styles - include the names in oArray
oArray = Array(wdStyleBodyText, wdStyleHeading1, wdStyleHeading2, wdStyleHeading3, wdStyleHeading4, wdStyleHeading5, wdStyleHeading6, wdStyleHeading7, wdStyleHeading8, wdStyleHeading9, "Table Text", "List Bullet", "List Number", "WP")
For n = LBound(oArray) To UBound(oArray)
.Styles(oArray(n)).Visibility = False
Next n
End With
End Sub