Настройка автоматического обновления является настройкой по умолчанию для всех стилей уровня оглавления. Кто-то в вашей организации этого не сделал, именно так Microsoft установила их в шаблоне Word в Normal.
Не предусмотрено способа изменения настроек для всех этих стилей одновременно. Однако можно использовать функцию «Органайзер», доступ к которой осуществляется на вкладке «Разработчик» на кнопке «Шаблон документа», чтобы заменить группы стилей, которые уже были изменены в документе. Процесс для этого будет:
- Создайте документ и измените в нем девять стилей оглавления.
- Отнесите этот документ на каждую машину и откройте его
- Используйте функцию «Организатор» 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