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

Hola
Yo lo hago de la siguiente manera:

*Permita Ejecutar el Word y abrir un documento seleccionandolo
oWord = CreateObject("Word.Application")
gcTableName = GETFILE('DOC', 'Nombre de archivo:')
IF EMPTY(gcTableName) && Esc presionada
RETURN
ENDIF
cDocumento=gcTableName
lConversion = .F.
lReadOnly = .F.
lAddArchivo = .T.
oWord.Documents.Open(cDocumento, LConversion,LReadOnly,lAddArchivo)
oWord.visible=.T.

*Permita Ejecutar el Word y abrir un documento nuevo
oWord = CreateObject("Word.Application")
oWord.Documents.Add()
oWord.visible=.T.
oWord.ActiveDocument.Range(0,0)

Como puedo abrir un documento nuevo poniendole un nombre que yo le diga por ejemplo enved de llamarse 'documento1' que se llame 'doc1'
y que si escribo algo se pida guardar los cambios si no escribo nada que no lo guarde.