Às vezes, quero "começar do zero", substituindo qualquer arquivo normal do Word atual por uma nova cópia original e, em seguida, personalizá-lo com minhas configurações preferidas.
O arquivo Normal tem todos os estilos de índice (ToC) definidos para atualizações automáticas.
Pelo que sei, 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 alterações em todos os estilos de ToC de uma só vez; por exemplo, as atualizações automáticas podem:
- Estar desativado para todos os estilos de ToC ao mesmo tempo? ou
- Ser preservado e reutilizado de uma forma que não anule o propósito de “começar do zero”? (Importar de um arquivo dotm, dotx ou dot anterior pareceria anular 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 uma longa história. Parece que “sempre foi assim”.
Responder1
A configuração para Atualizar automaticamente é uma configuração padrão em todos os estilos de nível de sumário. Alguém na sua organização não fez isso, foi assim que a Microsoft os definiu no modelo Normal do Word.
Não existe um método fornecido para alterar as configurações de todos esses estilos ao mesmo tempo. Porém, 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:
- Crie um documento e nele modifique os nove estilos de sumário
- Leve esse documento para cada máquina e abra-o
- Use a função Organizador do Word para copiar os nove estilos de sumário 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