Inserting date and time with shortcut

Charles Kenyon · #4 04-06-2019, 03:05 PM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
OneNote on Android phone View Tags? Enter Date, Time, Date & Time	DrTwinkyEsq	OneNote	0	03-27-2017 07:54 PM
Inserting “date & time” for the year (YYYY) only,	Jamal NUMAN	Word	5	07-19-2014 06:42 PM
Date--Time shortcut problem	markg2	Excel	3	10-27-2012 03:49 AM
Shortcut for date/time insert	normle	Outlook	1	03-25-2012 09:30 PM
Shortcut for date/time insert	normle	Office	4	03-23-2012 05:15 AM