Question

我需要一些Windows消息的帮助。下面的代码，从Excel VBA执行，任何使用Acrobat Reader DC打开的PDF文件将唤起第一个“另存为”屏幕。但是这个屏幕只有没有处理程序的按钮，我无法继续使用经典的“另存为”屏幕来完成我的代码。我试过Spy ++ 64并没有找到任何帮助。 Spy 7冻结了Excel和Acrobat Reader，Spy 32没有在我的电脑上运行。是否有任何机构知道我可以使用哪些消息来完成此任务？

Declare PtrSafe Function PostMessage Lib "USER32.dll" Alias "PostMessageA" (ByVal handler As Long, ByVal mssge As Long, ByVal hword As Long, lword As Any) As Long

Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA"(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Sub evoke_saveas()
    a = FindWindow("AcrobatSDIWindow", vbNullString)
    PostMessage a, &H100, 1, 0
    PostMessage a, &H6, 1, 0
    PostMessage a, &H111, &H1776, 0
end sub

Answer 1

终于解决了！

该屏幕是用于保存文件的Acrobat Reader DC的云服务。我按照下面的这些说明进行操作：

https://forums.adobe.com/thread/1815625

现在我可以使用我发布的代码来调用Acrobat Reader DC中的经典“另存为”。

以编程方式保存Acrobat Reader文件

1 个答案: