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 sEnd Sub