我有这个代码(功能区中的按钮)来更新我的文档中的TOC(Word 2010 - Windows 7)
ActiveDocument.TablesOfContents(1).Update
,但它没有更新TOC
唯一能做的就是内置的"更新表"参考菜单中的命令。
当光标在TOC中时按F9键不起作用,此代码也不起作用
Dim TOC As TableOfContents
With ActiveDocument
For Each TOC In .TablesOfContents
TOC.Update
Next
End With
任何想法可能会发生什么,因为它非常令人沮丧
答案 0 :(得分:0)
我很久以前写过这个,因为这个问题确实存在......
Option Explicit
' Update all the tables of contents, without annoying prompts.
Sub UpdateAllMyFields()
Dim t As TableOfContents
For Each t In ActiveDocument.TablesOfContents
t.Update
Next t
ActiveDocument.Fields.Update ' Update all fields.
End Sub
每当我必须处理TOC和字段时,我都会使用它。 我还有关于打印选项集的更新字段。