使用 VBA 在 Word 中更新/创建目录

Question

我是 VBA 新手。每次打开Word文档时，我都尝试更新该文档中的目录，但它似乎根本没有更新。

在 ThisDocument 中，我完成了以下操作：

Private Sub Document_Open()
ActiveDocument.TablesOfContents(1).Update
End Sub

有人可以帮助我吗？

Answer 1

问题可能是使用 Document_Open - 您必须在模板中设置事件，而不是在您要打开的文档中设置事件。您还可以使用 Auto_Open 宏。请注意，ActiveDocument 也可能是罪魁祸首的一部分 - 当您启动 Document_Open 事件时，您打开的文档可能还不是实际的活动文档 - 您可能需要设置一个引用您正在打开的文档，例如：

Dim doc As Document
set doc = Documents.Open(your path here)
doc.TablesOfContents(1).Update

最后，您的宏安全设置可能禁止执行任何内容。

在所有情况下，请仔细阅读控制 Microsoft Word Through 事件 和在创建、打开文档或已关闭。