10-06-2010, 02:04 PM
Try the following:
Let me know if u face any issues in object identification.
Code:
Window("<your pdf window name>").Click
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "%{F}" ' Press ALT+F
WshShell.SendKeys "{a}" ' Send the corresponding letter which is underlined, for 'save' under 'File' Menu. This opens a 'save a copy' dialog box
Window("<pdf window>").Dialog("Save a Copy").Click
Window("Adobe Reader").Dialog("Save a Copy").WinEdit("File name:").Set "<File Path>"
Window("Adobe Reader").Dialog("Save a Copy").WinButton("Save").Click
Set WshShell = Nothing
Let me know if u face any issues in object identification.