☰

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

tag-icon • tag-icon microsoft-word microsoft-word-2010 styles templates
Отключить автоматическое обновление всех стилей оглавления (ToC) в обычном шаблоне (Word 2010+)

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

В файле Normal все стили оглавления (ToC) настроены на автоматическое обновление.

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

Есть ли простой способ внести изменения во все стили ToC одновременно? Например, можно ли использовать автоматические обновления:

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

Среда: Несколько ПК с разными версиями MSOffice на каждом.

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

решение1

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

Не существует метода, позволяющего изменить настройки всех этих стилей одновременно. Однако вы можете использовать функцию Organizer, доступную из вкладки Developer на кнопке Document Template, для замены групп стилей, которые уже были изменены в документе. Процесс для этого будет следующим:

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

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

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

Связанный контент