参考别人的代码，解决了无重复打开WORD文档问题 _fnm
Declare long SetForegroundWindow In user32.dll long &&设置顶层窗口
Declare Long FindWindow In WIN32API String lpClassName,String lpWindowName  
Wrd_hnd=FindWindow(null,JUSTFNAME(_fnm)+' - Word')
If Wrd_hnd=0
Wrd_hnd=FindWindow(null,JUSTFNAME(_fnm)+' - Microsoft Word')
Endif

IF Wrd_hnd<>0&&文件已经打开
SetForegroundWindow(wrd_hnd) &&不能少否则可能关联到其它文档
wdrs=GETOBJECT(,'word.application')
wdrs.WindowState=2  && 0 普通 1 最大化  2 最小化
else
wdrs=Createobject('word.application')  &&创建Word对象
wdrs.documents.Open(_fnm)
ENDIF

学习楼主的无么奉献，向楼主学习！