ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

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

2022-06-13 21:33:05  阅读:469  来源: 互联网

标签:13 06 VBA FileName ActiveDocument file False True


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

 

标签:13,06,VBA,FileName,ActiveDocument,file,False,True
来源: https://www.cnblogs.com/crackerroot/p/16372353.html

专注分享技术,共同学习,共同进步。侵权联系[admin#icode9.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有