I think this macro will do the job for you; just paste it as a macro
Sub specialdate()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"CREATEDATE \@ ""MMMM """, PreserveFormatting:=True
Selection.TypeText Text:="26, "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"CREATEDATE \@ ""yyyy""", PreserveFormatting:=True
End sub
|