Sub Test() Dim df As DataField Set df = ActiveDocument.DataFields.Add("CreationDate", DocDefault:=True) df.Format = "dd/MM/yy"End Sub