| Name | Type | Description |
|---|---|---|
| Index |
Long
|
|
| Name |
String
|
|
| ID |
Long
|
Sub Test() Dim s As String, i As Long Dim Name As String, ID As Long s = "Document property list:" For i = 1 To ActiveDocument.Properties.Count ActiveDocument.Properties.Description i, Name, ID s = s & vbCr & "<" & Name & "," & ID & "> = " s = s & ActiveDocument.Properties.ItemByIndex(i) Next i MsgBox s End Sub