vba - Acrobat Reader ファイルをプログラムで保存する

Question

Windows メッセージに関するヘルプが必要です。以下のコードは、Acrobat Reader DC で開いた PDF ファイルを Excel VBA から実行すると、最初の「名前を付けて保存」画面が表示されます。しかし、この画面にはハンドラーのないボタンしかなく、従来の「名前を付けて保存」画面に進んでコードを完成させることができません。Spy++ 64 を試してみましたが、何も役に立ちませんでした。Spy 7 は Excel と Acrobat Reader の両方をフリーズさせ、Spy 32 は PC で実行されません。これを達成するためにどのメッセージを使用できるかを知っている人はいますか?

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