x1=ADDBS(SYS(5) + SYS(2003) )+"DocDir\Sif_Manual.doc" LOCAL oWord as word.application oWord=CREATEOBJECT("WORD.APPLICATION") WITH oWord oDoc=oWord.Documents.Open(x1) *.Selection.GoTo(wdGoToBookmark,,,"CaseReserving") oRange = .Bookmarks("CaseReserving").Range() .Visible=.t. endwithThis gives me the error: