VBA如何获得当前文件所有自定义属性的名称？

[MINJI]

Dim dpstd As DocumentProperties
Set dpstd = ActiveDocument.CustomDocumentProperties
Str = dpstd("属性名称")

上面的代码可以得到某个自定义属性的值，可如何得到所有自定义属性的名称呢？谢谢!

[lzqgj]

在监视窗口查看dpstd值

[lzqgj]

dpstd.Item(1).name 或dpstd.Item(1).value

[lzqgj]

for i=1 to dpstd.count
msgbox dpstd.Item(i).name
msgbox dpstd.Item(1).value
next