[Delirium]

какой то код похоже есть на http://www.perlmonks.org/?node_id=334724

Код:

ActiveDocument.ComputeStatistics(wdStatisticPages)

или

Код:

Dim x As Word.Application
Set x = Word.Application
'Получить ссылку на документ
PageCount = x.ActiveDocument.BuiltInDocumentProperties("Number " & "of Pages")

укажет количество листов в документе



Во, нашел как выделить именно вторую страницу, точнее диапазон со 2 по 2-ую страницу:

Код:

Dim rgePages As Range

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2

Set rgePages = Selection.Range

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2

rgePages.End = Selection.Bookmarks("\Page").Range.End

rgePages.Select

По моему то, что тебе было нужно

Взято отсюда