Объектно-ориентированный подход в программировании. Проектирование и реализация приложений в среде Microsof Office. Евсеева О.Н. - 88 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

1.4. Программирование на VBA 89
3
но при этом окажется, что количество страниц для всех документов будет равно
единице. Обычно Word занимается разбивкой на страницы в фоновом режиме
10
,
так сказать, в свободное от прочих занятий время, и поэтому в момент
открытия документа и вкладки Статистика сведения о количестве страниц в
документе могут быть неточными, поскольку правильное разбиение на
страницы еще не выполнено и общее их количество не подсчитано. В
результате при открытии документа оказывается, что он не еще разбит на
страницы в тот момент, когда выполняется попытка получить эти сведения. Для
того чтобы количество страниц подсчитывалось правильно, необходимо внести
в процедуру дополнительный код, устанавливающий подходящий режим
просмотра документа и вызывающий принудительное разбиение его на
страницы.
От режима просмотра зависит количество страниц, которое насчитает Word.
Настройка состоит в установке режима Разметка страницы ( ¾ Вид ¾
Разметка страницы в Word ).
' настройка режима просмотра
If MS_Word.ActiveWindow.View.SplitSpecial = wdPaneNone Then
MS_Word.ActiveWindow.ActivePane.View.Type = wdPageView
Else
MS_Word.ActiveWindow.View.Type = wdPageView
End If
Чтобы выполнить принудительное разбиение документа на страницы, проще
всего воспользоваться режимом предварительного просмотра: например, войти
в этот режим перед определением числа страниц. Фрагмент сбора сведений о
документе станет выглядеть при этом так:
' Получение информации средствами MS Word
With MS_Word.ActiveDocument
s_title = .BuiltinDocumentProperties(1)
d_dateCreat = .BuiltinDocumentProperties(11)
d_dateEdit = .BuiltinDocumentProperties(12)
t_time = .BuiltinDocumentProperties(13)
.PrintPreview
MS_Word.Selection.EndKey unit:=6
n_pages = .BuiltinDocumentProperties(14)
.ClosePrintPreview
n_chars = .BuiltinDocumentProperties(30)
n_byte = .BuiltinDocumentProperties(22)
' Подсчет числа рисунков
n_pictures = 0
10
Режим разбиения на страницы можно установить с помощью следующей команды: ¾ Сервис ¾ Параметры
Общие : Фоновая разбивка на страницы.

Страницы