用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的目录