Встроенные свойства документов MSOffice
Документы MSOffice имеют встроенные свойства, такие как автор документа, дата создания и т.д. Чтобы получить доступ к этим свойствам используется коллекция BuiltInDocumentProperties. Эти свойства могут быть определены у любого документа MSOffice и их можно использовать в макросах любой программы этого пакета.
| Название свойства | Назначение | |
|---|---|---|
| 1 | Title | Заголовок |
| 2 | Subject | Предмет |
| 3 | Author | Автор (создавший документ) |
| 4 | Keywords | Ключевые слова |
| 5 | Comments | Комментарии |
| 6 | Template | Шаблон документа |
| 7 | Last Author | Тот, кто последний сохранил документ |
| 8 | Revision Number | Число входов для редактирования |
| 9 | Application Name | Название приложения, обрабатывающего документ |
| 10 | Last Print Date | Дата и время последней печати |
| 11 | Creation Date | Дата создания |
| 12 | Last Save Time | Дата и время последнего сохранения |
| 13 | Total Editing Time | Общая продолжительность редактирования (минуты) |
| 14 | Number of Pages | Число страниц |
| 15 | Number of Words | Число слов |
| 16 | Number of Characters | Число символов |
| 17 | Security | Секретность |
| 18 | Category | Категория |
| 19 | Format | Формат |
| 20 | Manager | Менеджер |
| 21 | Company | Компания |
| 22 | Number of Bytes | Размер файла в байтах в момент последнего сохранения |
| 23 | Number of Lines | Число строк |
| 24 | Number of Paragraphs | Число абзацев |
| 25 | Number of Slides | Число слайдов (определено в PowerPoint, в остальных, вероятно, не используется) |
| 26 | Number of Notes | Число заметок к слайдам (определено в PowerPoint, в остальных, вероятно, не используется) |
| 27 | Number of Hidden Slides | Число скрытых слайдов (определено в PowerPoint, в остальных, вероятно, не используется) |
| 28 | Number of Multimedia Clips | Число клипов (определено в PowerPoint, в остальных, вероятно, не используется) |
| 29 | Hyperlink Base | База гиперссылок |
| 30 | Number of Characters (with spaces) | Общеечисло символов, включая пробелы |
Важно знать, что при попытке обратиться к свойству, которое для данного документа не определено,
возникает ошибка выполнения. Вот пример работы со свойствами документа:
Sub test()
On Error GoTo NotDefined
' В макросе для Excel ActiveDocument следует заменить на ActiveWorkbook
For Each prop In ActiveDocument.BuiltInDocumentProperties
With prop
PName = .Name
PValue = .Value
PType = .Type
s = s + PName & " = " & PValue & " [" & PType & "]"
End With
Next
MsgBox(s)
Exit Sub
' Обработчик ошибок
NotDefined:
PValue = "Value not defined"
Resume Next
End Sub
Здесь PType будет принимать числовые значения, каждое из которых соответствует определенному типу данных.
Предопределенные константы типов
| 1 | msoPropertyTypeNumber |
| 2 | msoPropertyTypeBoolean |
| 3 | msoPropertyTypeDate |
| 4 | msoPropertyTypeString |
| 5 | msoPropertyTypeFloat |