批量word转pdf——VBS脚本，在office宏中运行即可

智慧安全方案

于 2022-04-15 23:10:25 发布

阅读量2.4k

点赞数 1

文章标签： vbs脚本

本文链接：https://blog.csdn.net/garyyoung123/article/details/124206022

版权

这个VBS脚本可以在Office宏中运行，实现批量将Word文档转换为PDF格式。通过设置Application.DisplayAlerts和ScreenUpdating为False来提高效率，并使用FileDialog选择Word文件，然后使用Word应用程序的SaveAs方法保存为PDF格式。

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

批量word转pdf——VBS脚本，在office宏中运行即可

Sub 批量word转pdf()

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker) '返回一个 FileDialog 对象，该对象代表文件对话框的单个实例。
Dim vrtSelectedItem As Variant
Dim wdDoc As Document
Dim showFolder As Boolean
showFolder = False
With fDialog
.Filters.Add "Word文件", "*.doc;*.docx;*.docm", 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
'如果选择了本文档则跳过
If InStrRev(vrtSelectedItem, ThisDocument.Name) = 0 Then
On Error Resume Next
Set wdDoc = Application.Documents.Open(vrtSelectedItem, ReadOnly:=True)
wdDoc.SaveAs Left(vrtSelectedItem, Len(vrtSelectedItem) - 5), wdFormatPDF
wdDoc.Close False
End If
Next vrtSelectedItem
If showFolder Then Call Shell("explorer.exe " & Left(fDialog.SelectedItems(1), _
InStrRev(fDialog.SelectedItems(1), "")), vbMaximizedFocus)
End If
End With
Set fDialog = Nothing
Application.ScreenUpdating = True