不用插件,轻松实现word批量转PDF

相信大家在工作中经常需要进行文件格式转换,而word转PDF大概是经常能碰到的操作,PDF文档更便于文件的传输和转阅。word自带了另存为pdf文档的功能,比较好用。但对于批量转换为PDF的操作可能不太方便。

这里分享一个方法,不需要下载任何插件就可以轻松批量转PDF文档。这个方法是什么呢?

就是利用word自带的宏功能,也即VBA代码进行程序设计,实现批量转换成PDF文档。

核心代码如下:

 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) - 5), wdFormatPDF
                wdDoc.Close False
            
            End If
        Next vrtSelectedItem

编写好后就可以运行宏,选择多个word文档,确认就可以批量转换了。当然上述代码还有些小bug,对word文档文件名中有.的话,就会转换失败,需要更新下代码。

后续补充。

赞 (8)

评论 0

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址