1

所以我的 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

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

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

4

1 回答 1

1

您已将 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 的替代方案作为“水印”示例给出。

于 2021-07-18T23:19:51.517 回答