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

落日映苍穹つ 2022-01-11 14:47 482阅读 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 条评论，482人围观）

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

相关阅读

相关 Word文档转PDF的软件

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

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

相关 ppt使用vba编写倒计时_在Office VBA宏中使用计时器

ppt使用vba编写倒计时 For those of us who have our minds deeply into [VB.NET][], the journey ba

小咪咪/ 2022年12月06日 15:39/ 0 赞/ 485 阅读

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

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

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

相关 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 赞/ 250 阅读

相关办公：office办公软件Excel表格的打印技巧

很多新手使用办公软件过程中，对于Excel的打印出现了诸多问题，今天我们就一起来看看表格打印的几个技巧！ > 打印预览时网格线怎么不见了？ > 如何调整打印区域的页边

短命女/ 2022年08月28日 09:50/ 0 赞/ 232 阅读

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

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

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

相关 office转PDF文档

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

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

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

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

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

相关 Office 365中Word转成PDF

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

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

相关 Office 转 PDF

采用 jacob 插件，调用 WPS 功能实现，需要 Windows 操作系统。这种方式转成 PDF 不会失真，针对 excel 设置 PDF 横向布局。 im

迷南。/ 2021年09月30日 10:34/ 0 赞/ 572 阅读