This example searches the collection of command bars for the command bar named "Custom." If this command bar is found, the example makes it visible.
foundFlag = False
For Each bar In CommandBars
If bar.Name = "Custom" Then
foundFlag = True
bar.Visible = True
End If
Next
If Not foundFlag Then
MsgBox "'Custom' bar isn't in collection."
Else
MsgBox "'Custom' bar is now visible."
End If
This example displays the name, type, and value of a document property. You must pass a valid DocumentProperty object to the procedure.
Sub DisplayPropertyInfo(dp As DocumentProperty)
MsgBox "value = " & dp.Value & Chr(13) & _
"type = " & dp.Type & Chr(13) & _
"name = " & dp.Name
End Sub