Как я могу надежно получить количество страниц в документе Word?

Question

Я делаю много изменений в документе Word, используя автоматизацию, а затем запускаю макрос VBA, который, помимо прочего, проверяет, что документ не превышает определенное количество страниц.

Я использую ActiveDocument.Information(wdNumberOfPagesInDocument), чтобы получить количество страниц, но этот метод возвращает неверный результат. Я думаю, это потому, что Word еще не обновил разбиение на страницы документа, чтобы отразить изменения, которые я сделал.

ActiveDocument.ComputeStatistics(wdStatisticPages) также страдает от той же проблемы.

Я пробовал придерживаться звонка ActiveDocument.Repaginate, но это не имеет значения.

Мне посчастливилось добавить абзац в конец документа, а затем удалить его снова - но этот хак, похоже, больше не работает (я недавно перешел из Word 2003 в Word 2010).

Есть ли способ заставить Word на самом деле репатрировать и/или дождаться завершения полного заполнения?

Answer 1

После того, как вы внесли все свои изменения, вы можете использовать OnTime, чтобы задержать небольшую задержку перед чтением статистики страницы.

Application.OnTime When:=Now + TimeValue("00:00:02"), _ 
     Name:="UpdateStats" 

Я хотел бы также обновить все поля до этого OnTime заявления:

ActiveDocument.Range.Fields.Update 

Answer 2

Я нашел возможный обходной путь ниже, если не реальный ответ на вопрос темы. Вчера, первая линия ComputeStatistics ниже возвращалась правильные общей сложности 31 страниц, но сегодня он возвращает только 1.

Решения избавиться от Content объекта и правильное число страниц возвращаются.

Dim docMultiple As Document 
Set docMultiple = ActiveDocument 
lPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) ' Returns 1 
lPageCount = docMultiple.ComputeStatistics(wdStatisticPages) ' Returns correct count, 31 

Answer 3

Try (возможно после ActiveDocument.Repaginate)

ActiveDocument.BuiltinDocumentProperties(wdPropertyPages) 

Это вызывает мое Word 2010, чтобы провести полсекунды с «счетные слова» статус в строке состояния, а ActiveDocument.ComputeStatistics(wdStatisticPages) немедленно возвращает результат.

Источник: https://support.microsoft.com/en-us/kb/185509

Answer 4

ActiveDocument.Range.Information(wdNumberOfPagesInDocument)

Это работает каждый раз для меня. Он возвращает полные физические страницы в слове.

Answer 5

Я просто потратил 2 часа на то, чтобы решить эту проблему, и мне еще предстоит увидеть этот ответ на любом форуме, поэтому я решил поделиться им.

https://msdn.microsoft.com/en-us/vba/word-vba/articles/pages-object-word?f=255&MSPPError=-2147217396

Это дало мне мое решение в сочетании с прочесывать статьи, чтобы найти, что большинство решений людей ссылаются не поддерживается в новейших версиях Word.Я не знаю, какую версию она изменилась, но мое предположение, что 2013 и более поздние версии могут использовать этот код для подсчета страниц:

ActiveDocument.ActiveWindow.Panes(1).Pages.Count. 

Я считаю, что путь это работает ActiveDocument выбирает файл, ActiveWindow подтверждает, что файл, который будет использоваться, находится в текущем окне (в случае, если файл открыт в нескольких окнах со вкладки просмотра), Panes определяет, что если есть несколько окон/разделенных панелей/любой другой ерунды, вы хотите, чтобы «первая» была оценена , pages.count обозначает объект страницы, который будет оцениваться, подсчитывая количество элементов в коллекции.

Любой более осведомленный, не стесняйтесь меня исправить, но это первый метод, который дал мне правильное количество страниц на любом документе, который я пробовал!

Также извиняюсь, но я не могу понять, как отформатировать эту строку в блок кода. Если моды хотят отредактировать мой комментарий, чтобы это было моим гостем.