Thread: [Solved] Help with Document Properties Prompt Macro
View Single Post
 
Old 04-26-2011, 01:45 AM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2000
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Hi Karl,

For 'Status', you'd simply add another set of variables and the corresponding code to get/set its values. For example:
Code:
Dim StrOldStatus As String, StrNewStatus As String
...
StrOldStatus = .BuiltInDocumentProperties("Status").Value
...
StrNewStatus = InputBox("Enter the Document Status:", "Status", StrOldStatus)
...
If StrOldStatus<> StrNewStatus Then _
  .BuiltInDocumentProperties("Status").Value = StrNewStatus
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote