| Name | Type | Description |
|---|---|---|
| Index |
Long
|
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