Disabilita l'aggiornamento automatico per tutti gli stili del sommario (ToC) nel modello normale (Word 2010+)

A volte voglio "ricominciare da capo" sostituendo qualunque sia il file Word normale corrente con una nuova copia incontaminata e quindi personalizzandolo con le mie impostazioni preferite.

Il file normale ha tutti gli stili del sommario (ToC) impostati su aggiornamenti automatici.

Come meglio posso dire, l'unico modo per disabilitare quell'impostazione è uno per uno e ciò comporta più passaggi (fare clic sullo stile, fare clic su Modifica, attivare Aggiornamento automatico, fare clic su OK, ripetere).

C'è un modo semplice per apportare la modifica a tutti gli stili ToC contemporaneamente; ad esempio gli aggiornamenti automatici possono:

• Essere disabilitato per tutti gli stili ToC contemporaneamente? o
• Essere preservato e riutilizzato in un modo che non vanifica lo scopo di "iniziare pulito"? (L'importazione da un precedente dotm, dotx o dot file sembrerebbe vanificare lo scopo; ma forse c'è qualcosa memorizzato in una libreria o altro tipo di file?)

Ambiente: più PC con versioni diverse di MSOffice su ciascuno.

Nota: l'impostazione di aggiornamento automatico per gli stili ToC ha una lunga storia. Sembra essere "stato sempre così".

L'impostazione di Aggiorna automaticamente è un'impostazione predefinita su tutti gli stili di livello TOC. Qualcuno nella tua organizzazione non lo ha fatto, è così che Microsoft li ha impostati nel modello normale di Word.

Non esiste un metodo fornito per modificare le impostazioni su tutti quegli stili contemporaneamente. Puoi tuttavia utilizzare la funzione Organizer, accessibile dalla scheda Sviluppatore sul pulsante Modello documento, per sostituire gruppi di stili che sono già stati modificati in un documento. Il processo per questo sarebbe:

1. Crea un documento e modifica in esso i nove stili TOC
2. Porta quel documento su ogni macchina e aprilo
3. Utilizzare la funzione Organizer di Word per copiare i nove stili TOC modificati nel modello normale di quel computer.

L'altro metodo che può essere utilizzato è una macro che eseguiresti su ciascun computer. Di seguito è la macro che è possibile utilizzare.

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