Paul,
Interesting that I have been working the past week on an add-in to insert special format date content controls. If you would reach out via my website, I will send it to you for review. In my research, I found that dates with ordinals (at least in the US) are usually formated
Sunday, the 9th of August 2020. With that is mind:
Sub CreatedDate()
Dim oDate As Date
Dim oBMRng As Range
oDate = ThisDocument.BuiltInDocumentProperties("Creation Date")
Set oBMRng = ThisDocument.Bookmarks("CreateDate").Range
oBMRng.Text = Format(oDate, "DDDD") & " the " & Format(oDate, "D") & _
fcnOrdinal(Format(oDate, "D")) & " of " & Format(oDate, "MMMM YYYY")
oBMRng.NoProofing = True
ThisDocument.Bookmarks.Add "CreateDate", oBMRng
lbl_Exit:
Exit Sub
End Sub
Function fcnOrdinal(lngDay As Long) As String
'Adaptation from code used by macropod.
Dim strOrd As String
If (lngDay Mod 100) < 11 Or (lngDay Mod 100) > 13 Then strOrd = _
Choose(lngDay Mod 10, ChrW(&H2E2) & ChrW(&H1D57), ChrW(&H207F) & ChrW(&H1D48), ChrW(&H2B3) & ChrW(&H1D48)) & ""
fcnOrdinal = IIf(strOrd = "", ChrW(&H1D57) & ChrW(&H2B0), strOrd)
lbl_Exit:
Exit Function
End Function