利用office办公软件中的宏（VBA）将文档批量转成PDF

落日映苍穹つ 2022-01-11 14:47 498阅读 0赞

Sub 宏1()  
Application.DisplayAlerts = False  
Application.ScreenUpdating = False

Dim fDialog As FileDialog  
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)  
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) - 4), 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

转载于:https://blog.51cto.com/14279611/2382471

发表评论取消回复

表情：

评论列表（有 0 条评论，498人围观）

还没有评论，来说两句吧...

相关阅读

相关 Java利用libreOffice（jodconverter）将office（ppt，Excel，word，text）文档转换成pdf

//使用libreOffice比使用OpenOffice转换稳定，libreOffice是OpenOffice的升级版本，但也不能完全盖晗OpenOffice，下面代码注释的部

系统管理员/ 2023年10月17日 18:16/ 0 赞/ 50 阅读

相关 Microsoft.Office.Interop.Excel的用法以及利用Microsoft.Office.Interop.Excel将web页面转成PDF

1.常见用法 using Microsoft.Office.Interop.Excel; 1）新建一个Excel Applicati

野性酷女/ 2023年10月16日 21:43/ 0 赞/ 16 阅读

相关 Word文档转PDF的软件

Word的好处就是用起来方便，不过不适合在各个平台之间互相传递，而PDF则是通用的格式。一种做法就是用LaTex来编写脚本，然后生成PDF文件，这种方式老手可以使用。另

灰太狼/ 2023年10月16日 20:28/ 0 赞/ 58 阅读

相关自动化办公 | 批量将Excel中的url链接转成图片

![98122c86110f726a4883839618c5df8e.gif][] 大家好，我是小五???? 最近在交流群看到了一个问题 ![a36153cb37986a

我不是女神ヾ/ 2023年01月18日 14:27/ 0 赞/ 6 阅读

相关 php 将网页转成pdf_利用PHP将HTML页面转换成PDF文件

利用PHP将HTML页面转换成PDF文件发布时间：2020-12-18 15:50:29 来源：亿速云阅读：86 作者：Leah 本篇文章为大家展示了利用PHP将

忘是亡心i/ 2022年11月12日 05:23/ 0 赞/ 588 阅读

相关 java office to swf_java将office文档pdf文档转换成swf文件在线预览

java将office文档pdf文档转换成swf文件在线预览第一步，安装openoffice.org openoffice.org是一套sun的开源office办公套件，

男娘i/ 2022年11月06日 07:58/ 0 赞/ 266 阅读

相关利用Java将word文件转成pdf文件

说明：使用本方法计算机中必须含有office 一.准备工作 1.准备如图三个文件： ![20181115105342973.png][] 2.将第二个文件复制到C:\\

喜欢ヅ旅行/ 2022年04月16日 01:38/ 0 赞/ 470 阅读

相关 office转PDF文档

[2019独角兽企业重金招聘Python工程师标准>>> ][2019_Python_] ![hot3.png][] 最近项目上面有个需求，将用户上传的office格式转换成

╰半橙微兮°/ 2022年01月13日 23:41/ 0 赞/ 331 阅读

相关利用office办公软件中的宏（VBA）将文档批量转成PDF

Sub 宏1() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim f

落日映苍穹つ/ 2022年01月11日 14:47/ 0 赞/ 499 阅读

相关 Office 365中Word转成PDF

PDF 的全称是 Portable Document Format ，意为便携文档格式。在如何通过Office 365分享文件? 讲述了如何通过 Office 365 来在

迈不过友情╰/ 2021年11月22日 13:08/ 0 赞/ 1233 阅读