'====代===码===开===始============
set msword=CreateObject("word.Application")
name="你的窗口的名字"
If msword.Tasks.Exists(name) = True Then
msword.Tasks(name).WindowState=wdWindowStateMaximize
End If
msword.Quit
'====代===码===结===束============= |
 |
共有20652人关注过本帖树形打印复制链接主题：AppActivate("foxtable")在开发版执行错误？ |
|---|
 baoxyang |
小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC | |
  加好友  发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 |
 Post By：2011/7/14 9:51:00 [显示全部帖子]
|
|
|
|
baoxyang |
小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC | |
| 加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 |
Post By：2011/7/14 14:22:00 [显示全部帖子]
|
|
|
|