Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Count bookmarks in Word

Keywords: 	 OLE Word bookmarks

Question:

Can you tell me why this fails? I just need a list of the bookmarks in this document!!! 
msg = ""

appWord = Objectopen("Word.application")
appWord.VISIBLE = @True
appWord.Documents.Open("c:\test.doc")

Worddoc = appWord.ActiveDocument
WordBooks = Worddoc.Bookmarks
BookCount = WordBooks.count

For X = 1 To BookCount
Book = WordBooks.item(X)
BookName = Book.name
msg = StrCat(msg, X, ". ", BookName, @CRLF)
Next

appWord.Quit
objectclose(appWord)

Message("Bookmark names", msg)

It fails on: appWord.Documents.Open("c:\test.doc")

with the error: 1258: Ole: Unknown name

Answer:

The following should work.. 

msg = ""

appWord = Objectopen("Word.application")
appWord.VISIBLE = @True
appWordDoc=appWord.Documents
appWordDoc.Open("c:\test.doc")

Worddoc = appWord.ActiveDocument
WordBooks = Worddoc.Bookmarks
BookCount = WordBooks.count

For X = 1 To BookCount
    Book = WordBooks.item(X)
    BookName = Book.name
    msg = StrCat(msg, X, ". ", BookName, @CRLF)
Next

appWord.Quit
objectclose(appWord)

Message("Bookmark names", msg)


Article ID:   W14702

Filename:   Count bookmarks in Word.txt