VBA - [решено] Выделить страницу №2 в ворде

[pva]

Как в ворде выделить из текста (текст может быть любой длины) страницу №2 (получить её Range)?

Нужно для каждой страницы поставить свою фоновую картинку (подложку), на страницах располагается текст, который сформирован скриптом

[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

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



Взято

отсюда

[pva]

Delirium, респект! С твоей помощью нашёл в хелпе от 97 ворда в нужной мне форме



Код:

Код: Выделить всё

This example adds a bookmark at the top of page 2 in the active document.
Set myRange = ActiveDocument.Words(1).GoToNext(What:=wdGoToPage)
ActiveDocument.Bookmarks.Add Name:="Page2", Range:=myRange

[Delirium]

pva, Всегда рад помочь