Wpadł mi do głowy taki prosty pomysł. Może uda się go Tobie udoskonalić?
ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\Admin\Pulpit\PDF\Słuch.pdf", _
NewWindow:=True
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys ("^p")
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "~"
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys ("%{F4}") |