Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: OLE Word bookmarks
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
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
File Created: 2001:01:25:10:29:30
Last Updated: 2001:01:25:10:29:30