Hallo Anja,

wenn man meinen letzten Vorschlag ändert in:

Datum$ = Format(Now, "dd.mm.yyyy")
Datum$ = "(" & Datum$ & ")"
SendDragonKeys Datum$

geht er auch. Das Problem sind eben die Klammern, die SendKeys nicht behandeln kann, wohl aber SendDragonKeys, worauf Pascal richtigerweise hingewiesen hat.

Ohne Pascals Lösung zu kritisieren, gebe ich der anderen Methode dann doch den Vorzug, weil darin der String zunächst aufgebaut und dann mit einem Tastenbefehl eingefügt wird, anstelle von drei Einzelschritten.

Dann braucht man auch kein "true" (was bewirken soll, dass der nächste Befehl nicht vor dem ersten ausgeführt wird) oder etwa gar ein Wait. Mehrere SendKeys hintereinander sind nicht immer unproblematisch.

Gruß, Rüdiger

Mit Vocola ist es auch möglich die aktuelle Zeit oder die aktuelle Datum zu schreiben oder zu sprechen lassen:

sprechen die Uhr bitte = TIME2(0, speak);
schreibe die Datum bitte = DATE1(%m.%d.%Y);
 

Die Parameter sind nicht sehr leicht, aber die Befehl Worte (TIME, TIME1, TIME2, DATE, DATE1, DATE2) kann man finden in
http://qh.antenna.nl/unimacro/features/a...ndcommands.html.

Wenn man mit Vocola/Unimacro/NatLink mehr tun will mit Zeit oder Datum, sollte es vielleicht besser sein ein Unimacro Grammatik zu machen.

Quintijn

Hallo Drachenfreunde,

vielen Dank für die Lösungsvorschläge und vor allem für die Erklärungen. Ein Problem weniger

Zitat von R.Wilke

---

für andere Anwendungen muss der Wert "13" in der zweiten Zeile geändert werden

---

Mit dem Wert „13“ kann ich nahezu in jede Anwendung diktieren mit Ausnahme von Word.

Hans Löhr

Bei mir sieht das Skript Datum einfügen wesentlich einfacher aus, wenn dabei auch nicht eine Leerzeile, offene Klammer u. dergl. berücksichtigt wird:

Sub Main
SendKeys Format(Now, "dd.mm.yyyy")
End Sub

Das Skript Datum Vorvorgestern einfügen sieht beispielsweise aus wie folgt:

Sub Main
SendKeys Format(Now -3, "dd.mm.yyyy")
End Sub

Gestern oder vorgestern kann dann entsprechend eingestellt werden: Now -1 oder Now -2

Vielleicht nicht ganz so schick wie oben, hat sich bei mir aber bewährt und funktioniert soweit ich weiß in jeder Anwendung.

Klar, Herr Rossbach, aber der Wunsch war doch gerade ein automatischer Leerzeichenausgleich.

Herr Löhr: Ich nutze übrigens die Null-Variante. Die funktioniert bei mir in Word 2013, Outlook 2013, DragonPad, WordPad und Editor.

Ob das Ganze allerdings einen Effizienzvorteil gegenüber dem expliziten Diktat des Datums bringt, ist eine andere Frage.

Und schließlich eine nicht ganz ernst gemeinte Anmerkung: Wer will schon einen Text von jemandem lesen, der das Datum von heute nicht kennt?

Meinhard

Werte Dragon-Profis,
derzeit bastle ich an einem Befehl, das aktuelle Datum einzufügen. Soweit ist mir das auch bereits gut gelungen. Aber den automatischen Leerzeichenausgleich hätte ich auch gerne noch dazu, wie er hier wohl beschrieben war. Lieber einmal gescheit aufsetzen, als immer manuell hinterher sein zu müssen.
Leider ist die Grafik im Eingangsbeitrag nicht mehr abrufbar, gut, ist schon ein paar Jahre her. Könnte mir aber evtl. noch jemand das Skript, in welcher Form auch immer, zur Verfügung stellen, sodass ich das für mich noch Fehlende in meinen Befehl ableiten könnte?
Vielen Dank für Ihre Hilfestellung,
Karlheinz Lang

Das Skript lautet bei mir wie folgt:

Sub Main
SendKeys "+{Left}^c{Right}",1
If CStr(Asc(Clipboard)) <> 0 And Clipboard <> "(" And Clipboard <> "_" Then SendKeys " "
SendKeys Format(Now, "dd.mm.yyyy")
End Sub

Es funktioniert aber mit meiner aktuellen Version von Word nicht mehr, die Null wird nicht als Absatzmarke erkannt. 13 geht auch nicht. Vielleicht finden Sie oder jemand anderes ja heraus, was hier einzutragen wäre.

Herzlichen Dank sage ich!

Bei mir (Word aus Office 365, Updatekanal "aktuelle Version") funktioniert das nun wunderbar. Ich habe aber noch interessehalber recherchiert. Ich bin auf diese Codes für Word gekommen:

Neuer Absatz:
vbNewLine = vbCrLf = Chr(13) + Chr(10)
oder auch nur chr(10)
bzw. nur chr(13)
Zeilenumbruch innerhalb eines Absatzes:
vbVerticalTab = chr(11)

Vielleicht wäre für Sie ein Versuch mit der 10 wert.

Danke für Ihre Mühe.
Ihre Vorschläge funktionieren bei mir zwar nicht. Es scheint aber zumindest sporadisch zu funktionieren, wenn ich die Null als String in Anführungszeichen fasse.