Built in Document Properties

Using BuiltinDocumentProperties to annotate your workbook.

'' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'' Add some notation
dim lStr_Comments  as String

With ActiveWorkbook

    .BuiltinDocumentProperties("Title") = "Project Title"
    .BuiltinDocumentProperties("Author") = "Your name, Your company"
    .BuiltinDocumentProperties("Company") = "Client Name"

    lStr_Comments = ""
    lStr_Comments = lStr_Comments & "Prepared by: " & Application.UserName & vbCrLf
    lStr_Comments = lStr_Comments & "Add relevant comments: "

    .BuiltinDocumentProperties("Comments") = lStr_Comments

End With
 
The following is the list of built-in properties accessible through the BuiltinDocumentProperties property:
 
Title
Subject
Author
Keywords
Comments
Template
Last Author
Revision Number
Application Name
Last Print Date
Creation Date
Last Save Time
Total Editing Time
Number of Pages
Number of Words
Number of Characters
Security
Category
Format
Manager
Company
Number of Bytes
Number of Lines
Number of Paragraphs
Number of Slides
Number of Notes
Number of Hidden Slides
Number of Multimedia Clips
Hyperlink Base ** Microsoft Office 97 only
Number of characters (with spaces) ** Microsoft Office 97 only

Published: 28-May-2005
Last edited: 01-Mar-2011 20:51