Are you really running Office 2019 on Windows XP?
You can use a Date or CreateDate field and save it as an AutoText entry. You can create a keyboard shortcut to that entry.
If you use a Date field, unlink it after adding.
Ctrl+6 or
Ctrl+Shift+F9.
The CreateDate field gives you the date a document is created, which may not be your current date.
i have a macro that I use for a Date and Time stamp. I have it linked to keyboard shortcuts and to a QAT icon. I have three alternative ones as well.
Here is the one in my QAT that includes the time.
Code:
Sub DateTimeStamp()
' Inserts basic date and time stamp as text
' HansV
' Inserts date and time in format: dddd, d MMMM yyyyy - h:mm AM/PM Saturday, 6 April 2019 - 11:42 PM
' Keyboard shortcut Alt+Shift+D,D
'
Selection.TypeText Format(Now, "dddd, d MMMM yyyy - h:mm AM/PM")
End Sub
Alternative Formats:
Code:
Sub InsertDate1()
'
' Inserts current date as text European format d MMMM yyyy - 6 April 2019
' Keyboard shortcut = Alt+Shift+D, E
'
' Hansv
'
Selection.TypeText Format(Now, "d MMMM yyyy")
End Sub
Sub InsertDate2()
'
' Inserts date, long form, American format dddd, MMMM d, yyyy Saturday, April 6, 2019
' Keyboard shortcut = Alt+Shift+D, D
' Hansv
'
Selection.TypeText Format(Now, "dddd, MMMM d, yyyy")
End Sub
Sub InsertDate3()
'
' Inserts date, long form, European format dddd, d MMMM yyyy Saturday, 6 April 2019
' Keyboard Shortcut, Alt+Shift+D, L
' HansV
'
Selection.TypeText Format(Now, "dddd, d MMMM yyyy")
End Sub
Note that the keyboard shortcuts were added, they are not built in.
Alt+Shift+D,L means press Alt, Shift & D together, followed by L after the others are released.