Send Keys funktioniert nicht

[Heiko Garbe]

Hallo,
Das Makro soll folgendes in Word2000 tun. Wenn über DateiNeu eine Vorlage
aufgerufen wird, soll die Liste angezeigt werden und keine grossen Symbole:

Folgendes Makro:
Sub DateiNeu()
DoEvents
SendKeys "%2"
Dialogs(wdDialogFileNew).Show
End Sub

Läuft auch Prima, kein Fehler bei der schrittweisen Überprüfung, nur
anscheindend wird der SendKey Befehl nicht ausgeführt. Es passier nämlich
nichts, bis auf das der Dialog angezeigt wird.

Hat einer ne Idee, was mache ich falsch.

Bye Heiko

[Jörg Lüders]

Das geht auch leider nicht, denn SendKeys VOR dem Aufruf des Dialogs kann ja
nicht laufen, und SendKeys NACH dem Aufruf hat keinen Zweck: diese Codezeile
wird nämlich erst dann ausgeführt, nach dem das Dialogfenster mit OK, oder
Abbrechen geschlossen wurde.

Auf diese Weise geht's also leider nicht. Allerdings kann ich aus dem
Stehgreif auch keine Alternative anbieten. Ich vermute aber, dass der Aufruf
des Dialgos dahingehend verfeinert werden kann, z.B.

With Dialogs(wdDialogFileNew)
.Name = "Test*.dot"
.Listendarstellung = True (oder so was in der Art)
.Show
End With

DoEvents sollte in diesem Zusammenhang nicht nötig sein.

Viel Spaß beim Probieren.

Gruß

Jörg Lüders

Heiko Garbe <h.g...@spenge.de> schrieb in im Newsbeitrag:
380e...@news.teuto.net...

[Rene Nulsch]

Hallo !

Also der Code ist voll in Ordnung nur leider arbeitet die Sendkeys-Anweisung
nicht auf allen Rechnern mit Erfolg.

Auf meinem Rechner z.B. bringt dieser Code genau das gewollte.

An Jörg: Sendkeys muß meist vor dem Anzeigen benutzt werden.

Tschau Rene
Jörg Lüders <Joerg_...@compuserve.com> schrieb in im Newsbeitrag:
7un6tn$5sm$1...@news00.btx.dtag.de...