In diesem Beispiel werden die Namen und Werte der benutzerdefinierten Dokumenteigenschaften als Liste im ersten Tabellenblatt angezeigt.
rw = 1 Worksheets(1).Activate For Each p In ActiveWorkbook.CustomDocumentProperties Cells(rw, 1).Value = p.Name Cells(rw, 2).Value = p.Value rw = rw + 1 Next