Új hozzászólás Aktív témák

• #34701 slashing senior tag pigster #34698

  Új Válasz 2017-03-28 19:10:45 #34701

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  slashing

  senior tag

  válasz pigster #34698 üzenetére

  Kipróbáltam működik, ez így jobb egy fokkal mert nem fix fájnevet használ

  Public myappid As String
Sub PDFbolMasolo()
myappid = ActiveWindow.Caption

Dim AdobeReader As String
Dim StartAdobe

AdobeReader = "c:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
pdffajl = "C:\pdf\test.pdf"

StartAdobe = Shell("" & AdobeReader & " " & pdffajl & "", 1)

Application.OnTime Now + TimeValue("00:00:02"), "PDFmasolas"

End Sub

Private Sub PDFmasolas()

SendKeys ("^a")
SendKeys ("^c")

Application.OnTime Now + TimeValue("00:00:2"), "PDFbeillesztes"

End Sub

Private Sub PDFbeillesztes()

AppActivate myappid

Range("A1").Activate
SendKeys ("^v")

End Sub

Új hozzászólás Aktív témák