ActiveDocument.Sections(1).Footers(wpsHeaderFooterPrimary).Range _ .InsertDateTime DateTimeFormat:="MM dd, yyyy", _ InsertAsField:=True