用VB script 实现Word 2007 的批量另存为操作
先创建一个vbs文件, 定义如下:
代码
Dim ls_File
Set objArgs = WScript.Arguments '命令行参数
ls_File = objArgs(0) '第一个参数通常就是文件名
ls_new = left(ls_File, len(ls_File) -5 )+".pdf"
Set pptApp = CreateObject("Word.Application") '申明调用函数
pptApp.Visible = True ',一定要有此句,否则会出错
Set MyPress = pptApp.Documents.Open( ls_file) 'Document 对象
MyPress.Saveas ls_new, 17
pptApp.Quit
代码里的17 是另存为选项,可以用宏看到每个机器对应菜单的数字编号.
需要使用这个文件的话,只需执行如下命令就ok:
C:\WINDOWS\system32\wscript.exe c:\convert.vbs "C:\SourceFile.docx"
这里假定vbs 文件名叫convert.vbs, 目标文件是SourceFile.docx, 另存为的结果也在SourceFile的目录