Inserting the Date and Time

Windows 10: For frequent, easy insertion of Date (and optionally Time etc.) use the Insert Tab's Text group. There you will see "Date & Time" at the near far right, second item from the top. For my non-complex but frequent use, I dragged that icon to the Quick Access toolbar at the upper left of the window (which I had previously moved to just below the ribbon and right above the word "Navigation."). One click on its calendar icon there brings up the dialog box of format options for inserting date & time. Another click inserts it at the cursor's position.

Peter Lindner: Your macros are in your old copy of normal.dotm, your new installation overwrote this. As for your date issue, you might want to try fiddling with the Windows settings (Control Panel - Region and Language) in which there are some ways to set the format. I think Word gives the default Windows setting as one of the date format options.

Gee, I'd like the format as Fri, Nov 3, 2017 9:40am
Is a macro the only way to go?

And, when I upgraded from Outlook 2010 to MS Office 2016, I lost all my macros. So, is there a non-macro way, and can I recover my old macros?

In my footer I often put the field for the last saved date. I'd prefer this to be easier than navigating through the list of field to get to the format I want so I really should create a macro in my template to do this, but just haven't gotten to it.
(Personally, I prefer a date format of YYYYMMDD HH:MM in 24 hour format. Stardate... ;-))

As a tech writer, our documents require I date the changes I make, which is always today's date in the mm/dd/yyyy format.

I recorded the following macro and attached it to a button in the toolbar so that I can simply click it and today's date is entered as text. (Search the web for specifying other date formats.) There are probably better ways to do this but this works for me.

Sub Date_short()
'
' Date_short Macro
'
'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"DATE @ ""MM/dd/yyyy"" ", PreserveFormatting:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Fields.Unlink
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub