微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

如何在 VBA 中使用 Foxit 将 png 文件转换为 pdf

如何解决如何在 VBA 中使用 Foxit 将 png 文件转换为 pdf

所以我的 IT 部门在周末用 Foxit 替换了 Acrobat,我需要更改一些一直使用 Acrobat API 将 png 文件保存为 pdf 的 VBA 脚本。

根据 IT 部门提供的 API 参考指南,它看起来像在公园里散步

http://cdn01.foxitsoftware.com/pub/foxit/manual/phantom/en_us/API%20Reference%20for%20Application%20Communication.pdf

它甚至有一个关于将非 PDF 转换为 PDF 的方便部分:

phCreator.ConvertToPDF("D:\image.png"," D:\image.png.pdf")

易于理解:提供来源和目的地。但那是针对 Foxit 9 的,我电脑上安装的版本是 Foxit 10,示例代码不起作用。本指南中描述了 Foxit 10 的 API:

http://cdn01.foxitsoftware.com/pub/foxit/manual/phantom/en_us/APIReferenceforApplicationCommunication10.0.pdf

本指南还有一个名为 Converting non-PDF to PDF 的部分,但看起来它做了一些完全不同的事情,打开了一个将 Excel 工作表转换为 PDF 的指南。

查看 Excel 中的对象浏览器,我无法弄清楚如何使用 Foxit 10 将 PNG 转换为 pdf。有人有解决方案吗?

解决方法

您已确定 Foxit 的更新版本使用了 Phantom API 的第 10 版,并且实际上已经研究了之前的示例,因此基本上找到了您需要的所有信息,而无需 IT 部门的支持:-)

我只是指出该部分:-

“将多个文档合并为一个 PDF”

Dim phCreator As FoxitPhantomPDF.Creator
Set phCreator = CreateObject("FoxitExch.Creator")
Dim nCombinedCnt As Integer
nCombinedCnt = phCreator.CombineFiles("D:\image1.png|image2.png","D:\combineFiles_files.pdf",COMBINE_ADD_CONTENTS)
Call phCreator.CombineFiles("D:\CombineFiles","D:\combineFiles_folder.pdf",COMBINE_ADD_CONTENTS)

注意:路径“D:\CombineFiles”是一个文件夹,里面包含了几个支持的文件。

对于在一个 PDF 中包含多个 PNG 文件来说是一个很好的起点。一个或多个页面上的单个 PNG 的替代方案作为“水印”示例给出。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。