Last Saved By property

[jmac60]

Word 2003 SP2...
Is it possible to write a macro that saves the Last Saved By property to a
field in a document and then set the doc to read only?

Thanks
John

 

[Doug Robbins - Word MVP]

Insert a { DOCVARIABLE varSavedBy } field in the document where you want the
information to appear and then use the following macro:

With ActiveDocument
.Variables("varSavedBy").Value =
..BuiltInDocumentProperties(wdPropertyLastAuthor)
.Range.Fields.Update
.SaveAs FileName:="Filename", WritePassword:="yourpassword"
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[jmac60]

Exactly what I needed...Thanks alot Doug

Insert a { DOCVARIABLE varSavedBy } field in the document where you want the
information to appear and then use the following macro:

With ActiveDocument
.Variables("varSavedBy").Value =
..BuiltInDocumentProperties(wdPropertyLastAuthor)
.Range.Fields.Update
.SaveAs FileName:="Filename", WritePassword:="yourpassword"
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP