请教pdf转图片问题

sac100 · 发表于 2017-7-25 22:46

sac100 发表于 2017-7-25 22:39
DDEExecute lChanNo, "[DocDeletePages(" & PATH & ",1,3)]"'删除页码范围
先从最后页删除，到当前页面
...

objAcroApp.GetActiveDoc()‘只能用来控制最后打开的pdf文档，无法遍历已打开的pdf文档。
objAcroApp.GetNumAVDocs’已打开的pdf文档总数

sac100 · 发表于 2017-7-25 23:15

yyfdh 发表于 2017-7-25 21:29
可以吧，我弄一个给你看看

objAcroApp.GetAVDoc(0) 0表示第一个已打开的pdf文档,从左向右
.GetTitle 已打开的pdf文档的名称

sac100 · 发表于 2017-7-26 14:46

Although this appears in a dialog with other file info (metadata) this is not metadata. Logically, it can't be because a file does not store its own location, it is implicit. It is just the file path. You would normally have this to open the PDF in the first place, but it's also a property of the document object.

获取PDF已打开文件的路径，无法获取文件路径，可以结束了。

lioboo · 发表于 2018-3-29 15:10

yyfdh 发表于 2017-7-25 21:41
Sub test()

Dim oaapp As New Acrobat.AcroApp

谢谢分享

chis3 · 发表于 2018-3-29 15:37

想請問
我的excel 是03版
有辦法直接save as
pdf 嗎?

sac100 · 发表于 2018-3-30 08:26

chis3 发表于 2018-3-29 15:37
想請問
我的excel 是03版
有辦法直接save as

不能，换个2010或2016应该都可以，2003转pdf稍微麻烦点

sac100 · 发表于 2018-3-30 08:30

chis3 发表于 2018-3-29 15:37
想請問
我的excel 是03版
有辦法直接save as

要装个pdf虚拟打印机，然后要判断下打印机及端口，然后才能转pdf

LMY123 · 发表于 2018-4-23 11:33

代码实现pdf转jpeg

永在战场 · 发表于 2019-7-26 17:23

yyfdh 发表于 2017-7-25 21:40
请看附件，我用excel2013 ，测试了没有问题。

厉害！！！学些了！！

mstzl3322 · 发表于 2019-10-11 17:16

留个足迹，待后学习

		自动登录	找回密码
密码			免费注册

[求助] 请教pdf转图片问题