批量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

? Application.DisplayAlerts = True

End Sub
?

總結

以上是生活随笔為你收集整理的批量word转pdf——VBS脚本，在office宏中运行即可的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。