SendKeys
ing.grohn
ziel ist, mittels Sendkeys Daten in ein PDF-Formular zu schreiben.
Allein, ich scheiter schon an Beispielen aus der VBA-Hilfe!
Sub SneKeysRechner()
Dim Ergebnis, I
Ergebnis = Shell("CALC.EXE", 1) ' Rechner starten.
AppActivate Ergebnis ' Rechner aktivieren.
For I = 1 To 100
SendKeys I & "{+}", True ' Tastenanschläge senden, um die
Next I
SendKeys "=", True ' Gesamtsumme abrufen.
SendKeys "%{F4}", True ' Rechner mit ALT+F4 beenden.
End Sub
Sub SendKeysWord()
Dim AnwID, I
' AppActivate kann auch den Rückgabewert der Shell-Funktion verwenden.
AnwID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", 1) ' Microsoft Word _
starten.
AppActivate 4012 'AnwID ' Microsoft Word' aktivieren.
For I = 1 To 100
SendKeys I & "{+}", True ' Tastenanschläge senden, um die
Next I
End Sub
das erste Beispiel funktioniert nur teilweise: in der Zeile " AppActivate Ergebnis " meldet sich der Debugger. Sage ich "debuggen" und drücke F5 gehts weiter und das Programm läuft.
das zweite Beispiel tuts gar nicht (ebenfalls aus der Hilfe (ohne die For-Schleife)) und bleibt komplett an der Zeile AppActivate AnwId hängen.
Was muß da geändert werden, damit diese Besipiele funktionieren?
Was muß ich beachten, wenn ich das mit AcroRd32 machen möchte?
Vielen herzlichen Dank für eine Antwort!
Mit freundlichen Grüßen
ALbrecht