What you could do is have a small macro that you fire with, say, a keyboard shortcut. It could insert your date. So type your text and then your shortcut.

Code:

Dim r As Range
Set r = Selection.Range.Cells(1).Range
r.Collapse 1
r.Fields.Add r, Type:=wdFieldDate