Доступ к свойствам документа или БД

В Access'е создал вручную новое свойство (Свойства базы данных -> Прочие). Не подскажите, как программно получить доступ к этому свойству?

WORD

With ActiveDocument
'НАЗВАНИЕ
Title=.BuiltInDocumentProperties(wdPropertyTitle)
'ТЕМА
Subject=.BuiltInDocumentProperties(wdPropertySubject)
'АВТОР
Author=.BuiltInDocumentProperties(wdPropertyAuthor)
'РУКОВОДИТЕЛЬ
Manager=.BuiltInDocumentProperties(wdPropertyManager)
'УЧЕРЕЖДЕНИЕ
Company=.BuiltInDocumentProperties(wdPropertyCompany)
'ГРУППА
Category=.BuiltInDocumentProperties(wdPropertyCategory)
'ЗАМЕТКИ
Comments=.BuiltInDocumentProperties(wdPropertyComments)
'КЛЮЧЕВЫЕ СЛОВА
Keywords=.BuiltInDocumentProperties(wdPropertyKeywords)
 
'Для получения пользовательских свойств используйте
.CustomDocumentProperties(index)
End With

EXCEL

With Workbook
'далее по той же схеме...

PowerPoint

With Presentation
'далее по той же схеме...

VISIO

With ActiveDocument
 .Subject = ""
 .Manager = ""
 .Category = ""
 .Keywords = ""
 .Description = ""
 .HyperlinkBase = ""
End With

Работа с пользовательскими свойствами не предусмотрена

ACCESS

'Доступ к встроенным свойствам (TITLE):
CurrentDb().Containers!Databases.Documents("SummaryInfo").Properties("Title").Value
 
'Доступ к пользовательским свойствам:
CurrentDb().Containers!Databases.Documents("UserDefined").Properties("MyProperty").Value
 
'Доступ к параметрам запуска:
Set SrartProp=CurrentProject.Properties
SrartProp("StartupForm")="MyForm"

---

Для доступа к свойствам неоткрытого документа (WORD/EXCEL/POWERPOINT/PROJECT/VISIO) используйте DSOFILE.DLL
Перед использованием библиотеки не забудьте добавить соответствующую ссылку в редакторе VBA (Tools->References...)

'пример использования  Dsofile версии 1.4
Private oFilePropReader As DSOleFile.PropertyReader ' читаем свойства док-та.
Private oDocProp As DSOleFile.DocumentProperties 'здесь храним прочитанные св-ва.
..............
 
Sub SetDocProp(DocName As String)
 
Set oFilePropReader = New DSOleFile.PropertyReader
Set oDocProp = oFilePropReader.GetDocumentProperties(DocName)
 
With oDocProp
 
'выводим автора док-та в заголовок окна
ActiveDocument.ActiveWindow.Caption = .Author
 
'заполняем пользовательские св-ва документа
    If .CustomProperties.Count = 0 Then
 
     .CustomProperties.Add "ПоследняяРаспечаткаДата", Date
     .CustomProperties.Add "ПоследняяРаспечаткаВремя", Time
 
    Else
 
     .CustomProperties("ПоследняяРаспечаткаДата") = Date
     .CustomProperties("ПоследняяРаспечаткаВремя") = Time
  
    End If
 
End With
 
Set oFilePropReader = Nothing
Set oDocProp = Nothing
 
............
 
End Sub

Последнюю версию файла, а так же подробную информацию по использованию данной библиотеки Вы можете посмотреть здесь: Доступ к свойствам документов MS Office
Прикреплённый файлDsofile_ver1.4.zip (65.53 Кбайт, скачиваний: 450)