Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Работа с MsOffice + VBA  
     
  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)
 
     
  VBNet online (всего: 51566)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам