如何批量将word转换成pdf？

平时在工作过程中，可能有将word批量转换成pdf的需求，方法很多，还是觉得最简单的是利用word中的宏程序最简单，话不多说，下面简单描述下操作步骤：

1、新建一个word打开，同事按alt+F11，双击“ThisDocument”：

2、输入宏程序：

Sub BatchConvertToPDF()Dim destFolderPath As StringdestFolderPath = GetFolderPathIf destFolderPath <> Empty ThenDim path As VariantFor Each path In GetFilePaths()Dim indexOfSlash, indexOfDot As IntegerindexOfSlash = InStrRev(path, "\")indexOfDot = InStrRev(path, ".")Dim destFilePath As StringdestFilePath = destFolderPath + Mid(path, indexOfSlash, indexOfDot - indexOfSlash) + ".pdf"ConvertToPDF path, destFilePathNext pathEnd If
End SubFunction GetFilePaths()Dim folderPath As StringWith Application.FileDialog(msoFileDialogFilePicker).Filters.Add "word文件", "*.doc; *.docx; *.docm".Title = "请择要转换的word文件"If .Show = -1 ThenSet GetFilePaths = .SelectedItemsEnd IfEnd With
End FunctionFunction GetFolderPath()Dim folderPath As StringWith Application.FileDialog(msoFileDialogFolderPicker).AllowMultiSelect = False.Title = "请选择要存放的目录"If .Show = -1 ThenGetFolderPath = .SelectedItems(1)End IfEnd With
End FunctionSub ConvertToPDF(srcPath As Variant, destPath As String)Documents.Open FileName:=srcPath, ConfirmConversions:=False, _ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""ActiveDocument.ExportAsFixedFormat OutputFileName:= _destPath, ExportFormat:= _wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _wdExportOptimizeForOnScreen, Range:=wdExportAllDocument, From:=1, To:=1, _Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _BitmapMissingFonts:=True, UseISO19005_1:=FalseActiveDocument.Close
End Sub

3、按下F5开始执行，第一次弹框选择需要保存的路径文件夹

4、第二次选择需要转换的文件夹，选择全部文件

5、按查看保存输出文件夹

6、ok

如何批量将word转换成pdf？相关推荐

如何批量将Word转换成PDF？这几种方法都可以实现批量转换
怎么把Word文档批量转换成PDF格式呢?我们在日常的工作学习中,经常会使用Word文档来编辑文件,把文件编辑好后在发送的时候一般都会选择PDF格式来发送,,因为这样我们编辑好的格式才不会混乱.当我们 ...
如何批量将word转换成excel表格
平时我们工作总会接触很多的文档,转换文档格式也总是很多文件一起,不借助第三方工具的话只能一个个手动转换,非常浪费时间,为了解救大家,小编在这里分享可以批量转换的方法. 转换前的准备:批量将word转换 ...
用什么方法可以将Word转换成PDF文档？
我们有时编辑完Word文件需要打印或发送给他人查看,一般会先转换为PDF格式,这样在别的电脑上打开时就不会出现格式的变动,也不会出现因为版本而无法打开的问题,那么用什么方法可以将Word转换成PDF文 ...
怎么样在线Word转换成PDF转换器
导语:从事文字编辑行业的用户对于PDF资料文件转换成Word并不陌生,但有时候因为客观原因我们需要将编辑好的Word转换成PDF转换器在线http://app.xunjiepdf.com,方便客户浏览 ...
能把word转换成pdf好用的工具
在很多工作当中都会遇到PDF文件格式的转换问题,却因为目前互联网上存在的PDF转换器质量的差别,导致了转换出来的文件质量参差不齐.所以很多人在寻找PDF转换器的时候往往不知道怎样去选择一款真正具备高质 ...
word转换成pdf转换器
word转换成pdf转换器很多朋友向我苦诉,经常办公中遇到PD格式转换时,用普通的PDF转化出来的文字都成一堆密密麻麻的乱码字,内容也缩短了不少,里面的插图都转换不了,这时候她们不得不花上大 ...
WORD转换成PDF转换器2015官方版?
WORD转换成PDF转换器2015官方版 Word是我们工作中或多或少都要接触的文件格式,自己做一份文件的话一般都是以Word来做,因为是最常用的一种文档.可是当我们做出的文件要发给同事或者领导的话, ...
如何才能把word转换成pdf文件
Word可以说是我们现在使用最多的办公软件,其实大家在办公中常常使用到不同的办公软件,有时候会遇到一些问题,比如文件之间进行转换,问题说难也不难,但是不知道怎么转换的人可就头大了.但有一款专业的辅助软 ...
C# 使用Microsoft.Office.Interop将Excel、Word转换成PDF遇到的问题总结
首先应用中引入Microsoft.Office.Interop.Excel.Microsoft.Office.Interop.Word两个dll,将嵌入式互操作类型设为False, WORD转换成PD ...

如何批量将word转换成pdf？

如何批量将word转换成pdf？相关推荐

最新文章

热门文章