Populate Properties dialog box

[teejay274]

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]

This contains the basic ideas :-

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