Mark, Before applying this property, you must select one value. Any value, but only one. Here is how it may look like
sub Set fld = ActiveDocument.GetField("CP1_EndDate") fld.Select <a specific value here> Set prop = fld.GetProperties prop.OneAndOnlyOne=True fld.SetProperties prop end sub