View Single Post
 
Old 01-04-2010, 09:12 AM
jocare jocare is offline Windows 7 Office 2007
Novice
 
Join Date: Nov 2009
Posts: 11
jocare is on a distinguished road
Default

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
Reply With Quote