Desativar a atualização automática para todos os estilos do Índice (ToC) no modelo Normal (Word 2010+)

Question

Às vezes, quero "começar do zero" substituindo qualquer arquivo Word normal atual por uma nova cópia original e, em seguida, personalizá-lo com minhas configurações preferidas.

O arquivo Normal tem todos os estilos da tabela de conteúdo (ToC) configurados para atualizações automáticas.

Como melhor eu posso dizer, a única maneira de desabilitar essa configuração é uma por uma, e isso envolve várias etapas (clique no estilo, clique em Modificar, alterne Atualização automática, clique em Ok, repita).

Existe uma maneira fácil de fazer a alteração em todos os estilos de ToC de uma só vez? por exemplo, as atualizações automáticas:

• Ser desativado para todos os estilos ToC ao mesmo tempo? ou
• Ser preservado e reutilizado de uma forma que não derrote o propósito de "começar limpo"? (Importar de um anterior dotm, dotx, ou arquivo de ponto todos parecem estar derrotando o propósito; mas talvez haja algo armazenado em uma biblioteca ou outro tipo de arquivo?)

Ambiente: Vários PCs com diferentes versões do MSOffice em cada um.

Nota: A configuração de atualização automática para estilos de ToC tem um longo histórico. Parece que "sempre foi assim".

    

Answer 1

A configuração para Atualizar Automaticamente é uma configuração padrão em todos os estilos de nível de TOC. Alguém em sua organização não fez isso, é assim que a Microsoft os define no modelo normal do Word.

Não existe um método fornecido para alterar configurações em todos esses estilos ao mesmo tempo. Você pode usar a função Organizador, acessada na guia Desenvolvedor no botão Modelo de Documento, para substituir grupos de estilos que já foram alterados em um documento. O processo para isso seria:

1. Crie um documento e nele modifique os nove estilos de sumário
2. Leve esse documento para cada máquina e abra-o
3. Use a função Organizador do Word para copiar os nove estilos TOC alterados para o modelo Normal desse computador.

O outro método que pode ser usado é uma macro que você executaria em cada computador. Abaixo está a macro que você pode usar.

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