| |
Word: Получение статистики открытого файла |
|
| |
Данный пример покажет, как можно получить данные из свойств файла (как если бы вы выбрали через через меню Файл | Свойства.
Sub Макрос1()
Dim a As String
On Error Resume Next
Dim dp As DocumentProperty
For Each dp In ActiveDocument.BuiltInDocumentProperties
a = dp.Name & "__" & dp.Value
Selection.TypeText text:=a
Selection.TypeParagraph
Next dp
End Sub
И если вам, к примеру, нужно получить количество страниц в файле вам нужно поступить вот так.
Sub Макрос1()
Dim a As String
On Error Resume Next
Dim dp As DocumentProperty
MsgBox ActiveDocument.BuiltInDocumentProperties("Number of pages")
End Sub
В заключение привожу список возможных значений встроенных свойств в файле
Title
Subject
Author
Keywords
Comments
Template
Last author
Revision number
Application name
Last print date
Creation date
Last save time
Total editing time
Number of pages
Number of words
Number of characters
Security
Category
Format
Manager
Company
Number of bytes
Number of lines
Number of paragraphs
Number of slides
Number of notes
Number of hidden Slides
Number of multimedia clips
Hyperlink base
Number of characters (with spaces)
|
|
| |
|
|
|
|