[решено] Выделить страницу №2 в ворде - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Выделить страницу №2 в ворде (http://forum.oszone.net/showthread.php?t=138174)

Выделить страницу №2 в ворде

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

какой то код похоже есть на 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

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

Взято отсюда

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

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