Change Custom Properties with a Macro

[Mickey]

Hi,
I'm looking for a macro that will allow me to change 2 custom properties.
In all my documents I created 2 fields ("Approved Date") and ("Effective
Date"). When the document is re-submitted with changes I change both of the
field values from whatever the date is to "DRAFT". Is there a macro that can
do this?

Thanks,
Mickey

 

[Greg Maxey]

Try:
Sub ScratchMacro()
Dim oProp As DocumentProperties
Set oProp = ActiveDocument.CustomDocumentProperties
With oProp
.Item("Approved Date").Value = "Draft"
.Item("Effective Date").Value = "Draft"
End With
ActiveDocument.Fields.Update
End Sub

 

[Mickey]

Thank you so much. Works beautifully.

Try:
Sub ScratchMacro()
Dim oProp As DocumentProperties
Set oProp = ActiveDocument.CustomDocumentProperties
With oProp
.Item("Approved Date").Value = "Draft"
.Item("Effective Date").Value = "Draft"
End With
ActiveDocument.Fields.Update
End Sub