как получить cписок закладок из фаила Microsoft Word

[Emzari]

Надо получить список всех закладок содержащихся в фаиле Microsoft Word. Для этог пробовал использовать ниже приведенный код нопочемуто оно не даёт результатов.

Код: Выделить всё

Dim WD As New Word.Application
Dim MyB As Word.Bookmark

Private Sub Form_Load()
     WD.Documents.Open (App.Path & "\Sert.doc")
     WD.Documents("Sert.doc").Activate   
     For Each MyB In WD.ActiveDocument.Bookmarks
           Combo1.AddItem MyB.Name
     Next
     WD.ActiveDocument.Close
End Sub



[Gloom]

Возможно, закладки скрытые.
Попробуй:

Код: Выделить всё

MyDocument.Bookmarks.ShowHidden=True

[Emzari]

Нет закладки обичные сам ставил.