Обновление перекрестных ссылок Word с использованием VB.NET

Question

Я хочу обновить все перекрестные ссылки в существующем Word Document с помощью приложения VB.net.

Например, мое слово документ (.docm) (я пишу комментарии между/- -/для понимания):

Моего названия документа: ТЕСТ НА ОБНОВЛЕНИЕ
/- это название в зАКЛАДКИ назвал "TITLE1" -/

заголовок документа: {REF TITLE1 \ ч}
/- {REF TITLE1 \ ч} код для перекрестной ссылки, которая ссылается на закладку "title1" -/
/- Этот текст находится в заголовке моего документа -/

Я использую приложение VB.net изменить название документа:
Ниже мой код:

Imports Microsoft.Office.Interop 

Public Sub UpdateWord() 
    Dim oWord As Word.Application 
    Dim oDoc As Word.Document 

    'Start Word and open the document template. 
    oWord = CreateObject("Word.Application") 
    oWord.Visible = False 
    oDoc = oWord.Documents.Open(Path_Word_Document) 

    oDoc.Bookmarks.Item("TITLE1").Range.Text = "My New Title" 

    oWord.Documents.Save() 
    oWord.Documents.Close() 
    oWord.Quit() 
End Sub 

Когда я запускаю этот подпункт, мой заголовок документа обновляется, но перекрестные ссылки сохранить старое значение заголовка ,

Знаете ли вы, что мне нужно сделать, чтобы обновить перекрестную ссылку в моем подразделении VB.net.

Благодаря

Я использую MS Word 2010, Visual Studio 2010 (.NET Framework 3.5) на Win7.

Answer 1

Наконец-то я нашел решение.

Пожалуйста, позвольте мне показать код:

Imports Microsoft.Office.Interop 

Public Sub UpdateWord() 
    Dim oWord As Word.Application 
    Dim oDoc As Word.Document 
    Dim oHeader As Word.HeaderFooter 
    Dim oSection As Word.Section 

    'Start Word and open the document template. 
    oWord = CreateObject("Word.Application") 
    oWord.Visible = False 
    oDoc = oWord.Documents.Open(Path_Word_Document) 

    For Each oSection In oDoc.Sections 
     For Each oHeader In oSection.Headers 
      If oHeader.Exists Then 
       For Each oField In oHeader.Range.Fields 
        oField.Update() 
       Next oField 
      End If 
     Next oHeader 
    Next oSection 


    oWord.Documents.Save() 
    oWord.Documents.Close() 
    oWord.Quit() 
End Sub 

Спасибо вам Varocarbas за вашу помощь.