Procedure TWPParStyle.ClearUnit: WPCTRStyleColClass: WPCTRStyleCol.TWPParStyleDescription Deletes all Values