Populate Properties dialog box

teejay274

New Member
Joined
Jan 8, 2004
Messages
2
Help!
Is there an easy (or easier than manually typing them) way to populate the document properties box for a workbook with data from the workbook? Example: Cells in the workbook might contain "Author", "Keywords", "Category" and "Subject" Can that data be added to the workbook properties on saving?
Thanks for your help.
 

BrianB

Well-known Member
Joined
Feb 17, 2003
Messages
8,127
This contains the basic ideas :-
Code:
Sub TEST()
    '------------------------------------------------------------
    '- custom property
    Dim MyProperties As DocumentProperties
    Set MyProperties = ThisWorkbook.CustomDocumentProperties
    On Error GoTo SkipNew   ' may already exist
    MyProperties.Add Name:="KeyWords", _
        LinkToContent:=False, _
        Type:=msoPropertyTypeString, _
        Value:="Key1"
SkipNew:
'--------------------------------------------------------------------
    '- change properties
    ThisWorkbook.BuiltinDocumentProperties("Author").Value = Range("B1").Value
    ThisWorkbook.BuiltinDocumentProperties("Category").Value = Range("B3").Value
    ThisWorkbook.BuiltinDocumentProperties("Subject").Value = Range("B4").Value
    '----
    ThisWorkbook.CustomDocumentProperties("KeyWords").Value = Range("B2").Value
End Sub
 

Forum statistics

Threads
1,078,400
Messages
5,339,991
Members
399,346
Latest member
t0land

Some videos you may like

This Week's Hot Topics

Top