3楼的方法非常好,问题解决,方法也简单,谢谢了!(办公室的电脑,上不了外网这个网站,被限制了,所以今天才来恢复!)
oWrd.WindowState=2
&& 0 普通 1 最大化
2 最小化
oWrd.WindowState=1
&&一小一大的切换,就激活Word到最全面来了。
但是以下方法:也可以:
Declare long SetForegroundWindow In user32.dll long &&设置顶层窗口
Declare Long FindWindow In WIN32API String lpClassName,String lpWindowName
&&第一个参数写 null才行!
.
.
.
oWrd_hWnd=FindWindow(null,'XXXXXX验收记录.docx - Microsoft Word')
&&第一个参数只能写null 不能写 ''.
if oWrd_hWnd#0
SetForegroundWindow(oWrd_hWnd)
&&找到了放到最前面。
else
messagebox("没有找到Word窗口!"+chr(13)+chr(13)+"请检查窗口名称填写正确与否!",0+48,"系统提示您:")
endif