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

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

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

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

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

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

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

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

29
задан RJo
21.01.2023 18:18 Количество просмотров материала 3486
Распечатать страницу

1 ответ

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

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

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

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

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
1
отвечен Rich Michaels 2023-01-23 02:06

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх