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

319
RJo

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

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

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

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

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

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

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

0

1 ответ на вопрос

1
Rich Michaels

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

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

  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 
Ваш ответ очень ценен, потому что он (а) предоставил альтернативы, (б) имеет хорошо написанные шаги для каждой альтернативы и (в) предоставил фактический макрос для второй альтернативы. RJo 5 лет назад 0
@RJo Спасибо, это очень мило с твоей стороны. Я рад, что помог. Rich Michaels 5 лет назад 0