Trasladar Datos a word

Puedes usar este código, adáptalo a tu sistema,
no olvides que debes crear marcadores en word, si no sabes como hacer estos marcadores guiate con la ayuda del mismo word.
OLEObject contrato
contrato = CREATE OleObject
li_result = contrato.ConnectToNewObject("word.application")
IF li_result <> 0 THEN
DESTROY contrato
MessageBox("OLE Error", "No puede conectarse a Word Código: " + String(li_result))
SetPointer(Arrow!)
RETURN
END IF
//Abrir el documento Plantilla
contrato.documents.open("D:\MODELO CONTRATO.doc")
contrato.Visible=TRUE
for m=1 to dw_contrato.RowCount()
if dw_contrato.GetItemString(m,"flg_contrato") = "S" then
//Obtenemos el registro actual
ls_codpescador = dw_contrato.GetItemString(m,"cod_pescador")
ls_paterno = dw_contrato.GetItemString(m,"ap_paterno")
ls_materno = dw_contrato.GetItemString(m,"ap_materno")
ls_nombre = dw_contrato.GetItemString(m,"nombres")
ls_nombre = ls_paterno + " "+ls_materno + ", "+ls_nombre
contrato.ActiveDocument.Bookmarks.item("NOMBRE_TITULAR").Select
contrato.Selection.typetext(ls_nombre)
contrato.ActiveDocument.Bookmarks.item("DNI_TITULAR").Select
contrato.Selection.typetext(ls_codpescador)
contrato.activedocument.PrintOut(0)
contrato.activedocument.close(0)
contrato.quit()
contrato.DisconnectObject()
DESTROY contrato
end if
next

He creado marcadores en word pero cuanto creo .
En lo que me has mandado te entiendo hata abrir documento, de hay para adelante mencianas un DW me supongo que son los datos que vas ha mortar en word, me dejo entender osea tu a la hora que llamas a tu archivo de word hay se ba ha mostrar todo el contenido que tengas en tu DW que tengas en tu aplicación verdad de ser así pues te digo haber :
Mi DW se llama Dw_clientes los campos son clie_cod, nom_ape, DNI, sexo, Teléfono, Nacionalidad, quiero que al llamar al Archivos de Word se muestrem los datos de los clientes que tengo en mi DW clientes .
Gracias por la ayuda