Macro to display Advanced Properties?

XmisterIS · #1 04-24-2014, 03:13 AM

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:

Code:

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:

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Document Properties Prompt Macro	KJJ	Word VBA	14	11-10-2016 08:18 PM
Updating Document Properties without using advanced properties dialogue	thedr9wningman	Word VBA	3	01-20-2014 05:56 PM
Macro for Advanced Filter	atwood121	Excel Programming	0	05-22-2012 07:47 PM
Macro for printer properties	kjk20	Word VBA	6	07-19-2011 06:18 AM
Display the properties of an embedded image	tmazzotta	PowerPoint	0	02-18-2011 05:41 PM