自定义属性用:BuiltInDocumentProperties.Item(Index:=i)访问,试一下如下如下代码
Private Sub CommandButton1_Click()Dim i As SingleOn Error Resume NextFor i = 1 To 29 Debug.Print i & ": " & ActivePresentation.BuiltInDocumentProperties.Item(Index:=i).Value NextEnd Sub