Macro to display Advanced Properties?

[XmisterIS]

I am trying to record a macro that will do the following:

Office Button > Prepare > Properties > Document Properties > Advanced Properties > Custom

Of course, when the Advanced Properties window pops up, it won't let you then click on the "stop recording" button for the macro, so you then have to close the window to click stop recording, which then generates a macro which looks like this:

Sub Macro1()
'
' Macro1 Macro
'
'
    Application.DisplayDocumentInformationPanel = True
End Sub

Which is exactly the same as the macro that is generated for the set of actions:

Office Button > Prepare > Properties

So, what needs to go into that macro to make it display the Advanced Properties pop-up window and then select the Custom in the Advanced Properties pop-up?

*** SOLVED ***

For anyone who is interested, I abandoned the macro recorder and just did this:

Option Explicit

Public Sub ShowDocProperties()
    Dim docprop As DocumentProperties
    Set docprop = ActiveDocument.CustomDocumentProperties
    
    Dim report As String
    
    Dim i As Integer
        
    For i = 1 To docprop.count
        report = report & docprop.Item(i).name & " = " & docprop.Item(i).value & vbCrLf
    Next
    
    Call MsgBox(report, Title:="Custom Document Properties")
End Sub