Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Accessing custom document properties
Anyone know of a way to access and display the custom
document properties in Excel? Thanks ... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Document Properties | Excel Discussion (Misc queries) | |||
Properties of a document, help! | Excel Worksheet Functions | |||
How can I using Excel custom document properties in the header? | Excel Worksheet Functions | |||
Document Properties | Excel Worksheet Functions | |||
Accessing properties of a series with no data | Excel Programming |