Change Custom Properties with a Macro

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Mickey - 20 Oct 2006 18:39 GMT

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

Reply to this Message

Greg Maxey - 20 Oct 2006 18:47 GMT

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

> Hi,
> I'm looking for a macro that will allow me to change 2 custom properties.
[quoted text clipped - 5 lines]
> Thanks,
> Mickey

Reply to this Message

Mickey - 20 Oct 2006 19:30 GMT

Thank you so much. Works beautifully.

> Try:
> Sub ScratchMacro()
[quoted text clipped - 16 lines]
> > Thanks,
> > Mickey

Reply to this Message