Высокие статистические технологии

Форум сайта семьи Орловых

Текущее время: Ср июл 17, 2019 3:51 am

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Word подсчет количества страниц
СообщениеДобавлено: Вт апр 19, 2005 10:03 am 
Не в сети

Зарегистрирован: Вт апр 19, 2005 9:53 am
Сообщений: 2
Для подсчета активной страницы и количества страниц в документе использую рекомендованный хелпом макрос

MsgBox "The selection is on page " & _
Selection.Information(wdActiveEndPageNumber) & " of page " _
& Selection.Information(wdNumberOfPagesInDocument)

Результатом работы такого макроса являются два значения -1 -1

Не могу понять почему.

Взятый из фага на этом сайте макрос

Selection.HomeKey Unit:=wdStory
Dim a As String
a = ""
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "text"
.Forward = True
.Wrap = wdFindStop
End With
While Selection.Find.Execute = True
a = a + " " + Str(Selection.Information(wdActiveEndPageNumber))
Wend
MsgBox a


Тоже выдает -1 -1 и т.д в зависимости от количества слова text вне зависимости от страницы на которой он находится.

В чем ошибка?


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт апр 19, 2005 9:37 pm 
Не в сети
Site Admin

Зарегистрирован: Пн сен 27, 2004 10:26 pm
Сообщений: 114
Вашу ситуацию смоделировать не смог - все работает нормально.

Пришлите мне на e-mail Ваш документ, с которым Вы экспериментируете - посмотрю, может, дело в каких-то его особенностях.


Вернуться наверх
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вт апр 19, 2005 11:51 pm 
Не в сети

Зарегистрирован: Вт апр 19, 2005 9:53 am
Сообщений: 2
Добрый день! Кажется я предполагаю причину. Попробывал тот же самый макрос на работе на двух машинах. На одной из них стоит 2000, на другой XP. Office на обоих стоит 2003. В обоих случаях макрос работает как надо.

Вообще говоря довольно странно конечно, другие макросы, те, что проверял, на моей машине работают как надо.

Попробую переустановить Office.


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB