Отключить автоматическое обновление для всех стилей оглавления (ToC) в шаблоне Normal (Word 2010+)

Question

Иногда мне хочется "начать с нуля", заменив любой текущий файл Word Normal новой нетронутой копией, а затем настроить его в соответствии с моими предпочтительными настройками.

В обычном файле все стили таблицы содержимого (ToC) установлены на автоматическое обновление.

Насколько я могу судить, единственный способ отключить этот параметр - один за другим, включающий несколько шагов (щелкните стиль, нажмите «Изменить», выберите «Автоматическое обновление», нажмите «ОК», повторите).

Есть ли простой способ внести изменения во все стили ToC одновременно; например могут автоматические обновления:

• Быть отключенным для всех стилей ToC одновременно? или же
• Сохраняться и повторно использоваться таким образом, чтобы не победить цель "начать чистку"? (Импорт из более раннего файла dotm, dotx или dot все, похоже, побеждает цель; но, может быть, что-то хранится в библиотеке или другом типе файла?)

Среда: несколько компьютеров с разными версиями MSOffice на каждом.

Примечание. Параметр автоматического обновления для стилей ToC имеет долгую историю. Похоже, что так было всегда.

Answer 1

Настройка автоматического обновления является настройкой по умолчанию для всех стилей уровня оглавления. Кто-то в вашей организации этого не делал, именно так Microsoft устанавливает их в обычном шаблоне Word.

Не предусмотрено способа изменения настроек для всех этих стилей одновременно. Однако можно использовать функцию «Органайзер», доступ к которой осуществляется на вкладке «Разработчик» на кнопке «Шаблон документа», чтобы заменить группы стилей, которые уже были изменены в документе. Процесс для этого будет:

1. Создайте документ и измените в нем девять стилей оглавления.
2. Отнесите этот документ на каждую машину и откройте его
3. Используйте функцию «Организатор» Word, чтобы скопировать девять измененных стилей оглавления в шаблон Normal этого компьютера.

Другой метод, который можно использовать, - это макрос, который вы запускаете на каждом компьютере. Ниже приведен макрос, который вы можете использовать.

Sub UpdateTemplateStyles()
Dim sty As word.Style
Dim odocStyles As word.Styles
Dim oTemplate As word.Document

On Error GoTo errHandler
Set oTemplate = ActiveDocument.attachedTemplate.OpenAsDocument
Set odocStyles = oTemplate.Styles
For Each sty In odocStyles
    Select Case sty.Type
        Case wdStyleTypeParagraph
            Select Case sty.NameLocal
                Case "TOC 1", "TOC 2", "TOC 3", "TOC 4", _
                    "TOC 5", "TOC 6", "TOC 7", "TOC 8", "TOC 9"
                    sty.AutomaticallyUpdate = False
            End Select
    End Select
Next sty
oTemplate.SaveAs2 FileName:=oTemplate.FullName, AddToRecentFiles:=False
DoEvents
oTemplate.Close
Exit Sub

errHandler:
MsgBox Err.Description, vbExclamation, "UpdateTemplateStyles"
End Sub