oword=CREATEOBJECT("word.application") odocument=oword.Documents.Open("c:\bookmarktest.doc") obook= odocument.Bookmarks.Item(1) orange=obook.Range() orange.InsertAfter("the bookmark that I added") odocument.Bookmarks.Item(1).Delete odocument.Save() odocument.Close() oword.Quit