Sub InsertDate()
'
'  InsertDate Macro - allows you to insert today's date with keyboard shortcut Alt+D.
'  Macro created 9/03/99 by Philip Tory, and still in use today!
'
'  After you have created this macro in Word, assign a keyboard shortcut Alt+D
'  (for Date).
'
'  For example, in Word 2010, go to menu > File > Options > Customize Ribbon.
'  At the bottom of that screen, click on Keyboard shortcuts: > Customize. The Customize
'  Keyboard screen appears.
'
'  On the left, under Categories, scroll down to Macros and click once to select.
'  On thre right under Macros, scroll down to InsertDate and click once to select.
'
'  Current keys: delete what is there - click to select and then click the Remove button.
'  Press new shortcut key: Click once in this box and then press Alt+D
'  Click on the Assign button, then click on the Close button.
'
'  Now test the macro! In a word doc, press the Alt+D keys, and it inserts today's
'  date in a format like this:
'
'    Thursday 31st December 2016
'  or
'    Friday 1st January 2017
'
'  QUICK AND EASY!
'  ===============
'
    Dim datein As String
    Dim day As String
    Dim dayout As String
    Dim dateout As String
    Dim weekday As String
    weekday = Format(Date, "dddd")
    datein = Format(Date, "d mmmm yyyy")
    day = Trim(Left(datein, 2))
    Select Case day
        Case "1"
            dayout = day & "st"
        Case "2"
            dayout = day & "nd"
        Case "3"
            dayout = day & "rd"
        Case "21"
            dayout = day & "st"
        Case "22"
            dayout = day & "nd"
        Case "23"
            dayout = day & "rd"
        Case "31"
            dayout = day & "st"
        Case Else
            dayout = day & "th"
        End Select
    dateout = dayout & " " & Trim(Right(datein, Len(datein) - 2))
    Selection.Text = weekday & " " & dateout
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub