Sub ZapisJakoTekst()

Dim Czas As Date
Dim Nazwa As String

Nazwa = "D:\Wiadomosci\Dokument.pdf"
Call ShellExecute(0&, vbNullString, Nazwa, vbNullString, vbNullString, vbNormalFocus)

Czas = Now

    Czas = Czas + TimeSerial(0, 0, 1)
    Application.OnTime earliesttime:=Czas, procedure:="WysylajZnaki", schedule:=True


End Sub

Sub WysylajZnaki()

SendKeys "%"
SendKeys "{RIGHT}", True
For i = 1 To 7
SendKeys "{DOWN}", True
Next i
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
End Sub