主题：如何更新WORD整个目录及页码

以下内容为程序代码:

1 Dim app As New MSWord.Application
2 try
3 Dim doc3 As Object = app.Documents.Open(fndoc)
4
5 '方法1'
6 app.ActiveWindow.Selection.WholeStory
7 app.ActiveWindow.Selection.Fields.Update
8 app.ActiveWindow.Selection.Fields.Update
9
10 '方法2'
11 'Dim aStory As app.Range
12 '' Dim aField As app.Field
13 'For Each aStory In ActiveDocument.StoryRanges
14 '' For Each aField In aStory.Fields
15 '' aField.Update
16 '' Next aField
17 'Next aStory
18
19 '方法3'
20 'app.ActiveDocument.Content.Select
21 'app.ActiveDocument.Content.Fields.Update
22
23
24 app.Visible = False
25 Doc3.close
26 app.Documents.Save
27
28 catch ex As exception
29 msgbox(ex.message)
30 app.Quit
31 finally
32 ' app.quit
33 End try
34 app.quit

以下内容为程序代码:

1 Sub 宏6()
2 '
3 ' 宏6 宏
4 '
5 '
6 Selection.WholeStory
7 Selection.Fields.Update
8 Selection.Fields.Update
9 End Sub
10
11