VB в Word

[Ilia]

Здравствуйте. Извиняюсь за детские вопросы, просто с VB работаю первый раз. У меня форматируется текст в Ворде, проблема в том, как применить это форматирование к каждой странице, т.е. нужно по идее получить количество страниц (они однотипные) и сделать цикл на это количество. Может кто делал такое, мне кажется это должно быть не очень сложно.

Спасибо.

[npak]

Ilia, получить число страниц

Function GetNumberOfPages(Doc As Document) As Integer
    GetNumberOfPages = ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
End Function

Перейти на начало страницы, возвращает номер символа, с которого начинается страница.

Function GoToPageStart(Doc As Document, PageNum As Integer) As Integer
    GoToPageStart = Doc.Range.GoTo(wdGoToPage, wdGoToAbsolute, PageNum).Start
End Function

[Alf]

Именно такую операцию сам не делал, но IMHO для этого не обязательно знать точное количество страниц.

Дело в том, что страницы документа включены в коллекцию Pages, а для перебора всех элементов коллекции не обязательно знать их число. Достаточно использовать конструкцию VB For Each, которая наилучшим образом подходит для подобных задач.

[Ilia]

npak, спасибо большое, попробую .

[Ilia]

Alf, кстати а это идея. Спасибо, сейчас пороюсь в MSDN может найду примеры.

[Ilia]

npak, Alf, спасибо друзья, все работает. Кстати VB - хорошая штука оказывается .