Accessing custom document properties
 

Anyone know of a way to access and display the custom
document properties in Excel?

Thanks ...

Accessing custom document properties
 

"Tim Haley" wrote in message
...
Anyone know of a way to access and display the custom
document properties in Excel?

Thanks ...


To iterate through all document properties and add them
to a list box

Dim dp As DocumentProperty

For Each dp In ActiveWorkbook.CustomDocumentProperties
ListBox1.AddItem dp.Name
Next dp


To create a new document property
Set dp = ActiveWorkbook.CustomDocumentProperties.Add(Name:= "adpass",
LinkToContent:=False, _
Type:=msoPropertyTypeString, value:="")

To set an existing property

ActiveWorkbook.CustomDocumentProperties("adpass") = "Hello World"

To delete a document properties
Dim dp As DocumentProperty

For Each dp In ActiveWorkbook.CustomDocumentProperties
if dp.Name="adpass" then
dp.Delete
End If
Next dp

Keith

Accessing custom document properties
 

Thanks Keith ...

This will work fine. Too bad Microsoft doesn't support
built-in Excel functions that access custom document
properties like Word field tags. Job security for those of
us who know how to progam in VB I suppose!

Tim
-----Original Message-----

"Tim Haley" wrote in message
...
Anyone know of a way to access and display the custom
document properties in Excel?

Thanks ...


To iterate through all document properties and add them
to a list box

Dim dp As DocumentProperty

For Each dp In ActiveWorkbook.CustomDocumentProperties
ListBox1.AddItem dp.Name
Next dp


To create a new document property
Set dp = ActiveWorkbook.CustomDocumentProperties.Add
(Name:="adpass",
LinkToContent:=False, _
Type:=msoPropertyTypeString, value:="")

To set an existing property

ActiveWorkbook.CustomDocumentProperties("adpass ")
= "Hello World"

To delete a document properties
Dim dp As DocumentProperty

For Each dp In ActiveWorkbook.CustomDocumentProperties
if dp.Name="adpass" then
dp.Delete
End If
Next dp

Keith


.