Buen día amigo. usa esta función mandando la ruta completa del documento junto con su nombre
****************************************************
Function AbrirDocumento
Lparameters cDocumento
Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
******************************************************
* Abre el documento "c:\prueba.doc" Este documento debe existir
=ShellExecute(0,"Open",(cDocumento),"","",0)
return