Sub Test() Dim p As Properties Set p = ActiveDocument.Properties p.Item("Item", 1) = "Draw" p.Item("Item", 2) = "PhotoPaint" p.Item("Item", 3) = "R.A.V.E" MsgBox p.ItemByIndex(2)End Sub