Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.17.28.48] |
|
Сообщ.
#1
,
|
|
|
В Access'е создал вручную новое свойство (Свойства базы данных -> Прочие). Не подскажите, как программно получить доступ к этому свойству?
|
Сообщ.
#2
,
|
|
|
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 Кбайт, скачиваний: 451) |