Inserting the Document Creation Date

when i read my comment I saw that the computer changed my formulas in other notification into the numbers as stated in my comment
my comment should haver read:

160526 231000 shortcut for create date and time now in .doc



My idea for “create date” is that there is no argument to discribe the date with separatingpoints.
In every .doc I use the 13 digit notification for create date+time that wil begin with 6 and 6 numbers separated with a space. {CREATEDATE @"yyMMdd HHmmss"}

In autocorrect I chose “[.” That gives in other notification: {CREATEDATE @"yyMMdd HHmmss"

For the short cut for “date time” of this very moment I use “nu=” (nu =Dutch for now)That gives in the 13 digit notification: {DATE @"yyMMdd HHmmss"

To get my results I used the formulas given in „inserts“. But in these formulas is given a space between date and time and also a „merge“ instruction. I changed that in the window in top of the menu from M/d/yyyy h:mm:ss am/pm to {CREATEDATE @"yyMMdd HHmmss"
For the “time now” i did it the same way.

160526 231000 shortcut for create date and time now in .doc



My idea for “create date” is that there is no argument to discribe the date with separatingpoints.
In every .doc I use the 13 digit notification for create date+time that wil begin with 6 and 6 numbers separated with a space. 160526 231000

In autocorrect I chose “[.” That gives in other notification: 160526 231000

For the short cut for “date time” of this very moment I use “nu=” (nu =Dutch for now)That gives in the 13 digit notification: 160526 232505

To get my results I used the formulas given in „inserts“. But in these formulas is given a space between date and time and also a „merge“ instruction. I changed that in the window in top of the menu from M/d/yyyy h:mm:ss am/pm to 160526 231000
For the “time now” i did it the same way.
Sybrand Hoekstra

I regularly work in both English and French and have used the following macro to insert the current day's date (long format); whichever of the two languages my document is in. The date is inserted as text (not a field) so the date remains unchanged even if the files is saved under a new name.

The macro can easily be adapted to two other languages or even more that two languages if necessary, simply add more "Else" conditions.

No doubt it could also be improved, but I have been using it for a long time now, warts and all.

***********************

Sub InsertDate()
'
' Macro created 17/05/00 by Michael A. Harris
'
If Documents.Count >= 1 Then
Dim thislang
thislang = Selection.LanguageID
If thislang = 1036 Then
WordBasic.InsertField Field:="DATE @" + Chr(34) + "d MMMM yyyy" + Chr(34) + " * MERGEFORMAT"
WordBasic.WordLeft 3
WordBasic.CharRight 1, 1
WordBasic.UnlinkFields
WordBasic.CharRight 1
WordBasic.WordLeft 2
WordBasic.EditClear -1
WordBasic.Insert " "
WordBasic.WordRight 1
WordBasic.EditClear -1
WordBasic.Insert " "
WordBasic.WordRight 1
Else
Dim DateType$
WordBasic.InsertField Field:="DATE @" + Chr(34) + "d MMMM yyyy" + Chr(34) + " * MERGEFORMAT"
WordBasic.WordLeft 3
WordBasic.CharRight 1, 1
WordBasic.UnlinkFields
WordBasic.CharRight 1
WordBasic.WordLeft 1
WordBasic.EditClear -1
WordBasic.Insert " "
WordBasic.WordLeft 1
WordBasic.EditClear -1
Select Case WordBasic.day(WordBasic.Now())
Case 1, 21, 31
DateType$ = "st "
Case 2, 22
DateType$ = "nd "
Case 3, 23
DateType$ = "rd "
Case Else
DateType$ = "th "
End Select
WordBasic.Insert DateType$
WordBasic.CharLeft 3
WordBasic.CharRight 2, 1
WordBasic.Superscript
WordBasic.WordRight 3
End If
End If
End Sub

***********************