Need code in Macro to delete Document Properties info and more

[LizW]

I'm looking for code to add to my macro so that the
following information will be blank or replaced by
asterisks, in order to clean our docs so sensitive info
won't get out. These are:

Document Statistics like, Creation Date: 10/8/2003 3:13 PM
Last Save Time: 10/8/2003 3:13 PM
Time Last Printed: 5/12/2003 3:11 PM
Last Saved By: [Blank]
Revision Number: 2 (this is really annoying to have
people see)
Total Edit Time (Minutes): 0 Minutes

Also custom properties in the doc. properties box,and last
10 authors info.

I've gotten out tracking, smart tags, hidden text and have
saved as rtf and then doc again to get out most of the
trackable info.

Thanks!

 

[DeeJee]

I'm looking for code to add to my macro so that the

following information will be blank or replaced by
asterisks, in order to clean our docs so sensitive info
won't get out. These are:

Private Sub DelBIDocProps()
Dim P As DocumentProperty
For Each P In ActiveDocument.BuiltInDocumentProperties
On Error Resume Next
P.Value = "*"
Next
End Sub

But you need the On Error, because most of the properties
with "sensitive info" are not editable, and I don't know
how to delete that info. Sorry.

Private Sub DelCDocProps()
Dim P As DocumentProperty
For Each P In ActiveDocument.CustomDocumentProperties
P.Delete
Next
End Sub