Sub Test() Dim p As Properties Set p = ActiveDocument.Properties p.Item("Application", 1) = "CorelDRAW" p.Item("Application", 2) = "Corel PHOTO-PAINT" p.Item("Application", 3) = "R.A.V.E" p.DeleteByIndex (2) ' Remove the second data item - "Corel PHOTO-PAINT."End Sub