FoxPro/Visual FoxPro - AYUDA PARA ALGUN EXPERTO!!

Hola yo quisiera saber como puedo abrir word desde visual foxpro con un nombre de documento que yo le pase como parametro para que cuando le de a guardar se me grave con ese nombre y si ha habido cambios me pregunte al cerrar.
Yo lo hago de la siguiente manera:

PROCEDURE AbrirWord
PARAMETERS lExist,cFile,oForm

DDESetOption('SAFETY',.f.)
DDESetOption('TIMEOUT',100000)
nCanal=DDEInitiate('WinWord','System')
if nCanal=-1
!/N1 ...... {aqui pongo la ruta del Word}
nCanal=DDEInitiate('WinWord','System')
endif
if !lExist
DDEExecute(nCanal,'[FileSaveAs.Name="'+cFile+'"]')
DDEExecute(nCanal,'[FileOpen.Name="'+cFile+'"]')
endif
DDETerminate(nCanal)

Todo esto lo hace bien se abre el Word y se guarda el documento con el nombre que yo le indico pero si pego imágenes en el documento no me deja me dice que esta abierto como solo texto tengo que ir y decirle guardar como... Alguien sabe como abrirlo para que cuando le de a cerrar y me pida guardar los cambios se guarde bien tanto si es texto como imágenes?
Gracias

Esa Rutina que estas haciendo se trabaja en foxpro para windows pero vf ya trae nuevas herramientas como estas..
si necesitas renombrar o algo asi desde fox has un macro y lo modificas no cambian muchas cosas

**El Reporte lo mandas a un Archivo llando lcTextFile
lcTextFile = "c:\spectrum\fase.txt"

*si quieres excel
*Select una Tabla
*!* COPY TO (lcTextFile) TYPE XLS

*!* loXL = CreateObject("Excel.Application")
*!* With loXL
*!* .DisplayAlerts = .F. && Algo asi como SET SAFETY OFF
*!* .Visible = .T. && Si deseas que el usuario interactue con Excel.
*!* .Workbooks.Open(lcTextFile)
*!* endwith

loXL = CreateObject("Word.Application")
With loXL
.DisplayAlerts = .F. && Algo asi como SET SAFETY OFF
.Visible = .T. && Si deseas que el usuario interactue con Excel.
.Documents.Open(lcTextFile)
endwith

Suerte ...
Saludos desde Guatemala