2022-06-13 VBA代码实现word文档批量转pdf

VBA代码：

代码第7行，文件位置需要改成自己需要转换的文件所在路径。

 1 Sub doc2pdf()
 2 '
 3 ' doc2pdf 宏
 4 '
 5 '
 6 Dim file As String
 7 ChangeFileOpenDirectory "C:/Users/jskzls/Desktop/测试/"   '文件夹位置
 8 
 9 file = Dir("*.doc")
10 Do Until file = ""
11 Documents.Open FileName:=file
12 FileName = ActiveDocument.Name
13 BaseName = Left(FileName, InStrRev(FileName, ".") - 1)
14 ActiveDocument.ExportAsFixedFormat OutputFileName:= _
15 BaseName & ".pdf", ExportFormat:=wdExportFormatPDF, _
16 OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
17 wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
18 IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
19 wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
20 True, UseISO19005_1:=False
21 ActiveDocument.Close
22 
23 file = Dir
24 Loop
25 
26 End Sub