刷新目录的VBA代码是怎么写的?

before7000 · 发表于 2007-5-21 21:22

有哪为高手给我提供下目录刷新的VBA代码,万分感谢!

LangQueS · 发表于 2007-5-21 22:07

刷新什么目录？

yuyvtul · 发表于 2007-5-21 22:13

Selection.Fields.Update

守柔 · 发表于 2007-5-22 06:00

QUOTE:

以下是引用before7000在2007-5-21 21:22:52的发言：
有哪为高手给我提供下目录刷新的VBA代码,万分感谢!

可以这样：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-5-22 5:59:43
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0210^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub UpdateTableOfContents()
    Dim oTC As TableOfContents
    For Each oTC In ActiveDocument.TablesOfContents
        '更新整个目录
        oTC.Update
        '仅更新页码
        'oTC.UpdatePageNumbers
    Next
End Sub
'----------------------
'若文档中仅有一个目录则
Sub Example()
    ActiveDocument.TablesOfContents(1).Update
    'ActiveDocument.TablesOfContents(1).UpdatePageNumbers
End Sub
'----------------------

before7000 · 发表于 2007-5-22 21:43

万分感谢

		自动登录	找回密码
密码			免费注册