以下代码不能更新目录,请问如何改进。
以下内容为程序代码:
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
要app.ActiveWindow.Selection.Fields.Update两次才能更新页码索引,
但是不能更新整个目录。