View Single Post
Old 04-06-2019, 03:05 PM
Charles Kenyon Charles Kenyon is offline Windows 10 Office 2016
Join Date: Mar 2012
Location: Sun Prairie, Wisconsin
Posts: 5,878
Charles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to allCharles Kenyon is a name known to all

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.

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:
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.

Last edited by Charles Kenyon; 04-06-2019 at 09:44 PM.
Reply With Quote