Roger, I'm not sure I understand what you are trying to do. In the file download, I provided examples for outputting the selected date in both "D of MMMM, YYYY" and "MMMM d, YYYY" do you only want MMMM d?
If so, modify:
Case "BODMDY"
With oRng
.Text = Format(oDate, "MMMM d")
.Collapse wdCollapseEnd
.Start = .End
.InsertAfter fcnOrdinal(Format(oDate, "D"))
.Font.Superscript = True
.Start = .End
'.InsertAfter " " & Format(oDate, "YYYY") (stet out this line)
.Font.Superscript = False
End With
|