Sub Test() ActiveDocument.DataFields.Add ("Temporary") ActiveDocument.DataFields("Temporary").DeleteEnd Sub