TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ExportDocProps()

Dim x As Long
On Error Resume Next
With ActivePresentation
    Debug.Print "BUILT-IN DOCUMENT PROPERTIES"
    For x = 1 To .BuiltInDocumentProperties.Count
        Debug.Print .BuiltInDocumentProperties(x).Name & vbTab & .BuiltInDocumentProperties(x).Value
    Next
    Debug.Print "CUSTOM DOCUMENT PROPERTIES"
    For x = 1 To .CustomDocumentProperties.Count
        Debug.Print .CustomDocumentProperties(x).Name & vbTab & .CustomDocumentProperties(x).Value
    Next

End With

End Sub