Getting list of bookmarks from a Word file

[thughes]

Hi,

Does anyone know how to programmtically get a list of bookmarks within a named Word document?

thanks,
Tom

[peet]

'----------------------------------------
'- Name:    peet
'- Email:   [email][email protected][/email]
'- Web: 
'- Company: PvP
'----------------------------------------
'- Notes:   Lists all bookmarks and fiels
'       found in a word doc.
'----------------------------------------
 
'To test this, Create a new vb project. Add two listboxes and a command button to the form.
Option Explicit
Private objWord As Word.Application
Private wd As Word.Document
 
Private Sub Command1_Click()
    Dim i As Integer
    
    If objWord Is Nothing Then
        Set objWord = CreateObject("Word.Application")
    Else
        Set objWord = GetObject(, "Word.Application")
    End If
    DoEvents
    Set wd = objWord.Documents.Open("c:\Test.doc")
    
    List1.Clear
    List2.Clear
    
    For i = 1 To wd.FormFields.Count
        List1.AddItem wd.FormFields(i).Name
    Next
    For i = 1 To wd.Bookmarks.Count
        List2.AddItem wd.Bookmarks(i).Name
    Next
    objWord.Quit False
End Sub

[thughes]

cheers mate!
Tom

[peet]

Your welcome Tom