Hallo,

Hier wieder einmal eine hoffentlich leicht zu beantwortende Frage, wozu ich in der Hilfe nichts richtiges gefunden habe:

Gibt es in DNS eine Funktion wo man beispielsweise sagt: "aktuelles Datum einfügen" oder "Datum von heute einfügen", die dann für den heutigen Tag den 07.06.2010 einfügt? Morgen würde dann sozusagen der 08.06.2010 eingefügt werden und an den weiteren Tagen dann immer das aktuelle Datum.

Im Befehlseditor habe ich da nichts gefunden, so dass ich mir keinen Befehl mit dieser Funktion bauen kann. Aber hübsch wäre diese Funktion schon, weil ich manchmal das aktuelle Datum benötige und keine Lust habe, erst danach zu suchen, weil ich es in dem Augenblick des Diktierens nicht unbedingt immer gleich weiß.

Grüße

A. Wagner

Zitat

---

Gibt es in DNS eine Funktion wo man beispielsweise sagt: "aktuelles Datum einfügen" oder "Datum von heute einfügen"...

---

Hallo Herr Wagner,

nein, gibt es leider nicht, aber man kann es sich basteln, mit Pro und aufwärts natürlich. Folgen Sie mal dem Link da unten, und Sie werden fündig.

http://dragon-spracherkennung.forumprofi...len-datums.html

Grüße
Rüdiger Wilke

Hallo Herr Wilke,

Vielen Dank für den Hinweis! Schade nur, dass ich es jetzt aufwändig abschreiben muss, weil der eigentliche Text des Skriptes ja als Bild hineinkopiert ist. Aber das werde ich schaffen.

Grüße

A. Wagner

Zitat von a.wagner

---

Hallo Herr Wilke,

Vielen Dank für den Hinweis! Schade nur, dass ich es jetzt aufwändig abschreiben muss, weil der eigentliche Text des Skriptes ja als Bild hineinkopiert ist. Aber das werde ich schaffen.

Grüße

A. Wagner

---

Herr Wagner,

dafür gibt es zwei Gründe: 1. didaktisch, jeder soll selbst die Erfahrung von IntelliSense machen, 2. Schutz gegen "Raubkopierer".

Rüdiger Wilke

aber die Klammern sieht man wirklich sehr schlecht. Sind es normale, eckige oder geschweifte? Das brauchen Sie jetzt nicht zu beantworten, inzwischen funktioniert bei mir schon das Skript!

Grüße

A. Wagner

Guten Tach,

also wenn ich in meiner aufgepeppten Pref. Version aktuelles Datum sage (oder aktuelle Uhrzeit) kommt dann auch das aktuelle Datum (oder die aktuelle Uhrzeit)
Das liegt an folgendem script



Wer immer damit was anfangen kann...

Gruß

Ich weiß, dies ist wirklich ein sehr alter Thread. Bin aber tatsächlich erst heute darüber gestolpert. Das Skript gefällt mir und ich konnte daran schon mal einiges zum Thema DNS-Skriptsprache lernen. Allerdings hat sich in den letzten knapp 13 Jahren die Syntax ein klein wenig geändert. Die Verwendung der Variablen "x" in der For-Schleife wird nicht mehr ohne vorherige Deklaration akzeptiert. Es ergibt sich eine Fehlermeldung. Also nach "Dim strTmp As String" noch eine weitere Zeile einfügen mit "Dim x As Integer" und schon wuppt's.

Vielleicht hilf es dem Einen oder Anderen.

Wir nutzen eine ähnliche Funktion in Word, wenn wir eine Frist berechnen, z.B. als "Frist drei Wochen" und folgendem Befehl:

Sub Main
Selection.TypeText Format(DateAdd("d", +21, Now), " dd.mm.yyyy")
End Sub

Das funktioniert aber nur in Word und nicht in Outlook. Schön wäre es, wenn eine solche Funktion auch in Outlook funktionieren würde. Lässt sich das Makro in der DNS-Skriptsprache vielleicht so erweitern, dass als Datum ein zukünftiger Tag angegeben wird, also z.B. stets das Datum des aktuellen Tages + 14 Tage?

Also, in Word UND Outlook geht es auf viele Weisen, etwa für den Fall +21 so und ganz ohne Verweis auf die Objektbibliotheken von Word:

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

Die ersten beiden Zeilen dienen nur dem Leerzeichenausgleich in bestimmten Fällen, kann man also getrost weglassen. Im Prinzip braucht man also nur eine einzige Skriptzeile. Selbstredend kann man das Skript auch noch durch Variablen für die Zahl der zu addierenden Tage, Wochen usw. erweitern.

in der Tat, funktioniert super, aktuelles Datum:

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