教你如何不用下載任何軟體批次將word轉換為PDF格式
我們都知道使用Word中的“另存為”功能,很容易將Word文件轉換為PDF檔案。 但是,如果您想一次將幾十甚至上百個Word文件轉換為單獨的PDF檔案,那麼如何實現呢?
今天在外網檢索到了一個方式,如果能夠幫到大家希望大家能收藏點贊加關注哈。
1。首先新建一個空白word,開啟
Microsoft Visual Basic應用程式
視窗。
如果是首次使用這個功能(word裡面找不到)請先進行下列操作:
點開左上角的檔案
右下方找到選項
然後選擇自定義功能區,點開發工具,確定
這樣我們回到word就可以找到開發工具
2。設定好之後,點開開發工具,選擇第一個visual basic
3。進入頁面後找到插入——選擇模組,就可以看到這樣的畫面
4。之後將下列vba程式碼複製貼上到模組中
Sub
ConvertWordsToPdfs()
‘Updated by Extendoffice 20181123
Dim
xIndex
As
String
Dim
xDlg
As
FileDialog
Dim
xFolder
As
Variant
Dim
xNewName
As
String
Dim
xFileName
As
String
Set
xDlg = Application。FileDialog(msoFileDialogFolderPicker)
If
xDlg。Show <> -1
Then
Exit
Sub
xFolder = xDlg。SelectedItems(1) + “\”
xFileName = Dir(xFolder &
“*。*”, vbNormal)
While
xFileName <>
“”
If
((Right(xFileName, 4)) <>
“。doc”
Or
Right(xFileName, 4) <>
“。docx”)
Then
xIndex = InStr(xFileName,
“。”) + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex),
“pdf”)
Documents。Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False,
ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:=“”, PasswordTemplate:=“”, Revert:=False, _
WritePasswordDocument:=“”, WritePasswordTemplate:=“”, Format:= _
wdOpenFormatAuto, XMLTransform:=“”
ActiveDocument。ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1,
To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument。Close
End
If
xFileName = Dir()
Wend
End
Sub
5。按
F5
鍵或點選上面的執行來執行程式碼,會彈出瀏覽對話方塊,請選擇包含要轉換為pdf檔案的Word文件的資料夾,然後單擊
OK
按鈕。
這樣所選資料夾中的所有Word文件將就可以轉換為單獨的pdf檔案。
在我本人的筆記本和公司的筆記本都可以的,希望對大家有幫助!