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

转载于:https://www.cnblogs.com/xpp123/archive/2011/01/07/1930253.html