Con estas instrucciones:
=DDESetOption(´Safety´,.F.)
if TTversion="97"
mtexto=´[FileOpen.Name="´+TRIM(mdoc)+´"]´
mtexto2=´[FilePrint]´
mtexto3=´[FileExit]´
else
mtexto=´[ArchivoAbrir"´+TRIM(mdoc)+´"]´
mtexto2=´[ArchivoImprimir]´
mtexto3=´[ArchivoSalir]´
endif
NumCanal = DDEInitiate("WinWord","System")
if Numcanal=-1
run /N &TTName
NumCanal = DDEInitiate("WinWord","System")
endif
if NumCanal<>-1
=DDEExecute(NumCanal,mtexto)
=DDEExecute(NumCanal,mtexto2)
=DDEExecute(NumCanal,mtexto3)
=DDETerminate(NumCanal)
else
=WMSGBOX("No se ha podido establecer"+ ;
CHR(13)+"vinculo con WORD","!AVISO!",K_ICONSTOP,K_CONTINUE)
endif
tenien TTName el Path completo de WINWORD.EXE y Ttversion la version.