thanx alot.
Mark
Sub Macro1()
For i = 1 To ActiveProject.BuiltinDocumentProperties.Count
MsgBox i & " " & ActiveProject.BuiltinDocumentProperties.Item(i),
vbOKOnly, "Builtin"
Next i
'
For i = 1 To ActiveProject.CustomDocumentProperties.Count
MsgBox i & " " & ActiveProject.CustomDocumentProperties.Item(i), vbOKOnly,
"Custom"
Next i
End Sub
--
_________________________________________________________
Mark Durrenberger, PMP
Principal, Oak Associates, Inc, www.oakinc.com
"Advancing the Theory and Practice of Project Management"
________________________________________________________
The nicest thing about NOT planning is that failure
comes as a complete surprise and is not preceded by
a period of worry and depression.
- Sir John Harvey-Jones
"Weird" <anon...@discussions.microsoft.com> wrote in message
news:3dd001c47f38$5f105ae0$a601...@phx.gbl...
a = ActiveProject.BuiltinDocumentProperties.Item("Revision Number")
and I still don't know why the code in my previous post crashes after
Item(10)
--
_________________________________________________________
Mark Durrenberger, PMP
Principal, Oak Associates, Inc, www.oakinc.com
"Advancing the Theory and Practice of Project Management"
________________________________________________________
The nicest thing about NOT planning is that failure
comes as a complete surprise and is not preceded by
a period of worry and depression.
- Sir John Harvey-Jones
"Weird" <anon...@discussions.microsoft.com> wrote in message
news:3dd001c47f38$5f105ae0$a601...@phx.gbl...