目录
第七章：WScript控制Office
7-1 WScript常用属性（实例：交互性更好的自动拆分工作簿）
7-2 WScript对象的常用方法
7-3 用WshShell对象控制程序（另一种控制Word、Excel的方法）
7-4 用WshShell做机器人操作程序（以在Word中操作为例）
7-5 用WshShell做机器人操作程序（批量向Excel单元格写入数据）
7-6 综合运用（批量将Word中的图形保存为图片）
第七章：WScript控制Office
7-1 WScript常用属性（实例：交互性更好的自动拆分工作簿）
WScript对象，是vbs脚本访问Windows的根对象。
1.WScript.Arguments属性：获取指定文件的路径。(要把文件拖到下面代码所保存的vbs文件上才有效)
Fori = 0 To wscript.Arguments.Count - 1
MsgBox wscript.Arguments(i)
Next
2.脚本文件的路径与名称
msgbox WScript.ScriptFullName：返回当前运行脚本的完整路径（包括文件名）。
msgbox WScript.ScriptName: 返回当前运行脚本的文件名?
3.交互性更好的自动拆分工作簿
'把下面代码（去除sub与end sub）复制到记事本中，保存为vbs运行即可
Sub交互性更好的自动拆分工作簿()
strPath = wscript.arguments(0)'把要拆分的excel文件拖到这个vbs文件上，就能获取excel文件的路径
strSavePath = Replace(wscript.scriptfullname, wscript.scriptname, "")
SetxlApp = CreateObject("excel.application")
Setwb = xlApp.Workbooks.Open(strPath)
ForEachws In wb.Sheets
ws.Copy'工作表复制之后，会自动出现在新的工作簿，并且新的工作簿为活动工作簿
xlApp.ActiveWorkbook.SaveAs strSavePath & ws.Name & ".xlsx"
xlApp.ActiveWorkbook.Close
Next
xlApp.Quit
SetxlApp = Nothing
End Sub
7-2 WScript对象的常用方法
WScript.CreateObject: 创建对象?'WScript.可以省略
WScript.Quit: 强制脚本在任意时刻立即停止执行?
WScript.Sleep 休息时间（毫秒）：该方法将脚本的执行挂起一段时间，然后接着执行。
WScript.Echo: 该方法输出一个消息框?
WScript.Sleep 1000'休息1秒
WScript.Echo "hello"
WScript.Echo "hello","yes","no"
7-3用WshShell对象控制程序（另一种控制Word、Excel的方法）
WshShell（Wscript.Shell）：可以使用此对象访问Windows Shell的一些应用，
主要用于运行本地程序、操作注册表程序、创建快捷键、处理环境变量、发送键盘符等。
SetWshShell = WScript.CreateObject("WScript.Shell")
CurrentDirectory属性：返回当前vbs文件所在的目录路径（不包含文件名）。
MsgBox WshShell.CurrentDirectory
Run 方法: 在新过程中运行程序
run方法第二参数:
| intWindowStyle 值 | 说明 |
|---|---|
| 0 | 隐藏窗口，并激活另一个窗口。 |
| 1 | 激活并正常显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。第一次显示窗口时推荐使用。 |
| 2 | 激活窗口并将其显示为最小化窗口（即获取焦点但保持最小化）。 |
| 3 | 激活窗口并将其显示为最大化窗口。 |
| 4 | 按最近的窗口大小和位置显示窗口（不改变其当前最小化/最大化状态），活动窗口保持活动状态（不强制激活它）。 |
| 5 | 激活窗口并按当前的大小和位置显示它（不改变其状态）。 |
| 6 | 最小化指定的窗口，并按照 Z 顺序激活下一个顶层窗口。 |
| 7 | 将窗口显示为最小化窗口，活动窗口保持活动状态（不强制激活它）。 |
| 8 | 将窗口显示为当前状态，活动窗口保持活动状态（不强制激活它）。 |
| 9 | 激活并正常显示窗口。如果窗口处于最小化或最大化状态，则系统将其还原到原始大小和位置。还原最小化窗口时推荐使用。 |
| 10 | 根据启动应用程序的程序状态来设置显示状态。 |
wshshell.Run "excel.exe"
wshshell.Run "WINWORD.exe"
AppActivate 方法：激活应用程序窗口。指定要激活哪个应用程序。它可以是包含应用程序的标题（和出现在标题栏中的一样）或过程 ID 的字符串。
wshshell.AppActivate "word"'只是打开了word程序，没有打开word文档时，可以这样
wshshell.AppActivate "123.docx"'123.docx是word文档的名称
wshshell.AppActivate "12508"'12508为进程中应用程序的id
7-4用WshShell做机器人操作程序（以在Word中操作为例）
SendKeys 方法：将一个或多个键击发送到活动窗口（仿佛是在键盘上击键一样）。
发送普通字符：
Sub发送普通字符()
Setwshshell = CreateObject("wscript.shell")
With wshshell
.AppActivate ("123.docx")'激活123.docx,窗口不可以是最小化状态，否则无法激活
wscript.Sleep 3000'需要延迟一下，不然容易出错
.SendKeys "100"
.SendKeys "Are you ok?"'结果跟中英文输入法状态有关（需要在英文状态下）
'.SendKeys "我来了（不能输入中文）"
.SendKeys "{+}"'输入+号
End With
End Sub
有特殊意义的符号转义为普通字符:
| 名称 | 表示方法 | 特殊意义 |
|---|---|---|
| 加号 | {+} | SHIFT（单纯输入一个+号，代表SHIFT键） |
| 插入记号 | {^} | CTRL |
| 百分号 | {%} | ALT |
| 波浪符（非符号） | {~} | ENTER（单纯输入一个~号，表示回车键） |
| 左大括号 | {{} | 转义（表示字面意义的左大括号{） |
| 右大括号 | {}} | 转义（表示字面意义的右大括号}） |
| 左中括号 | {[} | 无特殊含义（表示字面意义的左中括号[） |
| 右中括号 | {]} | 无特殊含义（表示字面意义的右中括号]） |
键盘上的键位代码:
| 按键名称 | SendKeys中的表示方法 |
|---|---|
| Backspace(退格键) | {BACKSPACE},{BS},{BKSP} |
| Break(暂停键) | {BREAK} |
| Caps Lock(大写锁定键) | {CAPSLOCK} |
| Delete(删除键) | {DELETE},{DEL} |
| Down Arrow(向下键) | {DOWN} |
| End | {END} |
| Enter(回车键) | {ENTER},~ |
| Esc(退出键) | {ESC} |
| Help(帮助键) | {HELP} |
| Home | {HOME} |
| Insert(插入键) | {INSERT},{INS} |
| Left Arrow(向左键) | {LEFT} |
| Num Lock(数字锁定键) | {NUMLOCK} |
| Page Down | {PGDN} |
| Page Up | {PGUP} |
| Print Screen(截屏键) | {PRTSC} |
| Right Arrow(向右键) | {RIGHT} |
| Scroll Lock | {SCROLLLOCK} |
| Tab(制表键) | {TAB} |
| Up Arrow(向上键) | {UP} |
| F1 | {F1} |
| F2 | {F2} |
| F3 | {F3} |
| F4 | {F4} |
| F5 | {F5} |
| F6 | {F6} |
| F7 | {F7} |
| F8 | {F8} |
| F9 | {F9} |
| F10 | {F10} |
| F11 | {F11} |
| F12 | {F12} |
| F13 | {F13} |
| F14 | {F14} |
| F15 | {F15} |
| F16 | {F16} |
7-5用WshShell做机器人操作程序（批量向Excel单元格写入数据）
中文输入取巧办法。将中文复制到剪贴版中，然后再粘贴出来。
echo ***| clip.exe 就是用DOS命令把***这串字符写入剪贴板了,完整写法如下：
wshshell.run "cmd.exe /c echo 你好| clip.exe",0'clip.exe是剪贴板，0可以避免闪屏
以下代码要在记事本中保存为vbs文件，才能查看效果
Sub批量向Excel单元格写入数据()
Setwshshell = CreateObject("wscript.shell")
With wshshell
.AppActivate "1.xlsx"
ForEachar In Array("上海", "成都", "北京")
n = n + 1
.SendKeys n
.SendKeys "{RIGHT}"'按向右方向键
wscript.Sleep 200
.Run "cmd.exe /c echo " & ar & "|clip.exe", 0'复制ar到剪贴板
wscript.Sleep 200
.SendKeys "^v"'^v表示ctrl+v
wscript.Sleep 200
.SendKeys "{DOWN}{LEFT}"
wscript.Sleep 200
Next
End With
End Sub
7-6综合运用（批量将Word中的图形保存为图片）
'以下代码要在记事本中保存为vbs文件，才能查看效果（去除sub与end sub）,如果会出错就把注释去掉
Sub批量将Word中的图形保存为图片()
SetdocAPP = CreateObject("word.application")
docAPP.Visible = True
Setwshshell = CreateObject("wscript.shell")
With wshshell
.Run "mspaint.exe"'运行画图程序，可以用.run "%windir%\system32\mspaint.exe"
Setdoc = docAPP.Documents.Open(.currentdirectory & "\图形.docx")' .currentdirectory返回当前vbs文件所在目录路径
Fori = 1 To doc.Shapes.Count
.AppActivate "图形.docx"
wscript.Sleep 1000
doc.Shapes(i).Select
wscript.Sleep 1000
.SendKeys "^c"
wscript.Sleep 1000
.AppActivate "画图"
wscript.Sleep 1000
.SendKeys "^v"
wscript.Sleep 2000
.SendKeys "%fa"'按alt+f+a，调出另存为对话框
wscript.Sleep 2000
.Run "cmd.exe /c echo " & doc.Shapes(i).Name & "|clip.exe", 0'复制图片名称
wscript.Sleep 1000
.SendKeys "^v"
wscript.Sleep 2000
.SendKeys "{ENTER}"'按回车保存
wscript.Sleep 1000
Next
.SendKeys "%fx"'按alt+f+x，退出画图程序
End With
docAPP.Quit
SetdocAPP = Nothing
End Sub
保存时要处理英文输入状态
画图程序的编辑区域大小要调整为图片的大小，点击“重新调整大小”输入高度、宽度即可
'以下代码要在记事本中保存为vbs文件，才能查看效果（去除sub与end sub）,如果会出错就把注释去掉
Sub批量将Word中的图形保存为图片无注释()
SetdocAPP = CreateObject("word.application")
docAPP.Visible = True
Setwshshell = CreateObject("wscript.shell")
With wshshell
.Run "mspaint.exe"
Setdoc = docAPP.Documents.Open(.currentdirectory & "\图形.docx")
Fori = 1 To doc.Shapes.Count
.AppActivate "图形.docx"
wscript.Sleep 1000
doc.Shapes(i).Select
wscript.Sleep 1000
.SendKeys "^c"
wscript.Sleep 1000
.AppActivate "画图"
wscript.Sleep 1000
.SendKeys "^v"
wscript.Sleep 2000
.SendKeys "%fa"
wscript.Sleep 2000
.Run "cmd.exe /c echo " & doc.Shapes(i).Name & "|clip.exe", 0
wscript.Sleep 1000
.SendKeys "^v"
wscript.Sleep 2000
.SendKeys "{ENTER}"
wscript.Sleep 1000
Next
.SendKeys "%fx"
End With
docAPP.Quit
SetdocAPP = Nothing
End Sub
计算机科学与技术 & 计算机网络技术：双专业课程体系完全导航指南
本系列目录
1、Word VBA编程入门指南：从对象模型、流程控制到数组与字典的完整教程
2、Word VBA 对象模型精讲：从Document到Character的文本逐级控制与自动化实战
3、Word VBA 表格自动化实战：从宏录制到Table对象，掌握多表合并与批量生成
4、Word VBA 图形与图表自动化：从批量生成到环形阵列，掌握文档可视化排版
5、Word与Excel VBA协同实战：构建双向数据通道，实现跨软件流程自动化
6、VBScript办公自动化实战：无需打开Office，用独立脚本操作Word与Excel
7、VBScript系统级自动化：使用WScript对象外部操控Office与模拟键盘输入
