使用VBS实现word、excel批量转换为pdf

脱壳潜行者

已于 2023-04-05 21:24:10 修改

阅读量2.5k

点赞数 5

文章标签： excel 编程语言

于 2023-04-05 19:41:45 首次发布

本文链接：https://blog.csdn.net/qq_40081339/article/details/129975402

版权

该文章介绍了一种使用VisualBasicScript(VBS)在32位Office2007系统中批量将Word(.doc,.docx)和Excel(.xls,.xlsx)文件转换为PDF的解决方案。用户需要先安装SaveAsPDFandXPS.exe插件，然后创建并运行一个VBS脚本来实现文件转换。脚本会遍历指定文件夹中的文档，对符合条件的文件进行转换，并在转换完成后关闭应用程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用VBS实现word、excel批量转换为pdf

由于最近我家tiger有这方面的需求，且她单位用的是office 2007的32位系统，网上python转换的方法无法奏效，所以使用通用性还可以的VBS来实现，首先要安装SaveAsPDFandXPS.exe，有这个文件支撑，office才能实现转成pdf，wps是不需要的。然后新建一个txt的文本文件，然后把代码复制进去，保存后把文件的后缀改成 .vbs即可。代码在32位系统已测试过，放心使用。

代码如下：

On Error Resume Next
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject("Word.Application")
Set oExcel = WScript.CreateObject("Excel.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")
Set ffs=fds.Files
Set WordIsopen = 0
Set ExcelIsopen = 0
For Each ff In ffs
    If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
		WordIsopen = 1
        Set oDoc=oWord.Documents.Open(ff.Path)
        odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
	ElseIf 	(LCase(Right(ff.Name,4))=".xls" Or LCase(Right(ff.Name,4))="xlsx" ) And Left(ff.Name,1)<>"~" Then
		ExcelIsopen = 1
		Set oWb = oExcel.Workbooks.Open(ff.Path)
		pdf = Left(ff.Path,InStrRev(ff.Path,".")) & "pdf"
		oExcel.displayalerts=false
		oWb.ExportAsFixedFormat 0,pdf,0,1,1,,,0
    End If
Next

If WordIsopen = 1 Then
	odoc.Close
	oword.Quit
End If

If ExcelIsopen = 1 Then
	oWb.Close
	oExcel.Quit
End If

Set oDoc=Nothing
Set oWord =Nothing
Set oWb=Nothing
Set oExcel =Nothing
MsgBox "All files have been converted to PDF! fishbarbar"