☰

停用普通範本 (Word 2010+) 中所有目錄 (ToC) 樣式的自動更新

tag-icon • tag-icon microsoft-word microsoft-word-2010 styles templates
停用普通範本 (Word 2010+) 中所有目錄 (ToC) 樣式的自動更新

有時我想“從頭開始”，用原始的新副本替換當前的 Word Normal 文件，然後使用我的首選設定對其進行自訂。

普通檔案將所有目錄 (ToC) 樣式設定為自動更新。

據我所知，禁用該設定的唯一方法是逐一進行，並且涉及多個步驟（單擊樣式，單擊修改，切換自動更新，單擊確定，重複）。

有沒有簡單的方法可以一次更改所有目錄樣式？例如可以自動更新：

  • 同時禁用所有目錄樣式？或者
  • 以不違背「乾淨開始」目的的方式保存和重複使用？ （從早期的 dotm、dotx 或 dot 文件導入似乎都達不到目的；但也許庫或其他類型的文件中存儲了某些內容？）

環境：多台 PC，每台 PC 上裝有不同版本的 MSOffice。

注意：ToC 樣式的自動更新設定有著悠久的歷史。似乎「一直都是這樣」。

答案1

自動更新設定是所有目錄層級樣式的預設設定。您組織中的某人沒有這樣做，這就是 Microsoft 在 Word 的 Normal 範本中設定它們的方式。

沒有提供同時更改所有這些樣式的設定的方法。不過，您可以使用「管理員」功能（從「文件範本」按鈕上的「開發人員」標籤存取）來取代文件中已變更的樣式組。其過程為：

  1. 建立一個文件並在其中修改九個TOC樣式
  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

相關內容