pasar datos de un datawindow a word

Hola experto,tengo un problema con este programa. Tengo un archivo .doc, en ese archivo hay dos lineas, codigo y nombre.quiero llenar esos datos enviandolos desde un datawindw.tengo este scrip...pero sale error.derrepente estpy haciendo algo mal.te agradeceria mucho tu ayuda...gracias.
string ls
string codigo,nombres
oleobject lole_word
codigo=dw_1.object.codigo[dw_1.getrow()]
nombres=dw_1.object.nombres[dw_1.getrow()]
lole_word=create oleobject
ls=GetCurrentDirectory()+'\datos.doc'
IF lole_word.connecttonewobject('word.application.8')=0 THEN
lole_word.documents.open(ls)
ELSE
messagebox('ERROR','¡ No se puede abrir el archivo !',stopsign!)
return
END IF
lole_word.visible=false
IF lole_word.ActiveDocument.bookmarks.Exists("Codigo") THEN
lole_word.selection.goto(true,0,0,"Codigo")
lole_word.selection.typetext(codigo)
ELSE
lole_word.ActiveDocument.bookmarks.add("Codigo")
END IF
IF lole_word.ActiveDocument.bookmarks.Exists("Nombres") THEN
lole_word.selection.goto(true,0,0,'Nombres')
lole_word.selection.typetext(nombres)
ELSE
lole_word.ActiveDocument.bookmarks.add("Nombres")
END IF
lole_word.activedocument.save()
lole_word.activedocument.close()
lole_word.application.quit()
lole_word.disconnectobject()
destroy lole_word

weno te explico. Tengo un documento algo asi...
          Codigo    :
          Nombres :
     xxxxxxxxxxxxxxxxx
     xxxxxxxxxxxxxxxxx
     xxxxxxxxxxxxxxxxx
...El codigo y el nombre los tengo en un datawindow;lo q necesito es llenar esos espacios(codigo y nombres) con los datos de la fila q seleccioné.Probe el codigo q me mandaste pero,sale error en, lole_word.application.activate() .

weno stoy trabajando con el office 2003.

weno, aún sigo teniendo ese problema. gracias de todos modos...buenas tardes