Read a Bookmark in a Word Document

Set objWord = CreateObject("Word.Application")

objword.Visible = False

Set objDoc = objWord.Documents.Open("e:\copy.doc")

Do until objDoc.AtEndofStream

                                stxt = objDoc.Readline

                                MsgBox stxt

Loop

objdoc.Close

objWord.Quit