通过VBA将word文档导出为图片，每个页面一张图片

weiqigreen

已于 2024-01-26 09:04:22 修改

阅读量1.4k

点赞数 9

分类专栏： VBA办公自动化文章标签： word 开发语言

于 2024-01-26 08:53:26 首次发布

本文链接：https://blog.csdn.net/weiqigreen/article/details/135857611

版权

应用场景：

在工作中，有时候需要把WORD文档截图发到工作群。一是比直接发文档好，点开就能看；二是比直接发文字好，直接复制文字到聊天窗口就清除掉了格式。

直接截图大小不一，而且带有换行标记，如下图。

我有时习惯进到打印预览页面，再截图。但是当页面很多时，就比较麻烦。

思路：

把当前文档保存为PDF——》PDF通过acrobat导出为JPEG——》删除PDF。

主要代码：

通过网上学习，借鉴了导出PDF为图片的VBA代码。其他代码自己实验。代码如下，需要的自取：

Sub SavePDFAs(PDFPath As String)
    '此函数主要是借鉴来的，主要作用是把PDF转成图片，和PDF在同一个路径下面。
    '要安装了acrobat才能使用
    Dim objAcroApp      As Acrobat.AcroApp
    Dim objAcroAVDoc    As Acrobat.AcroAVDoc
    Dim objAcroPDDoc    As Acrobat.AcroPDDoc
    Dim objJSO          As Object
    Dim boResult        As Boolean
    Dim ExportFormat    As String
    Dim NewFilePath