Статьи из блога

Как выделить все объекты Shapes на определенной странице

Борис интересуется:

Как программно выделить все обьекты Shapes, например, прямоугольники, находящиеся на определённой странице документа Word?

Борис, вот пример макроса, выделяет все графические объекты shapes во всем документе:

Sub selectAllShapes()
   ActiveDocument.Shapes.SelectAll
End Sub

Если надо выделить только на определенной странице, то можно использовать такой код:

Sub selectAllShapesFromPartPage()
'Выделение всех графических объектов на определенной странице
Dim MyRange As Range
Set MyRange = ActiveDocument.Range(0, 0)  'начало диапазона
Set MyRange = MyRange.GoTo(What:=wdGoToPage, Name:="3")  'задаем номер страницы
Set MyRange = MyRange.GoTo(What:=wdGoToBookmark, Name:="\page")   'переходим к заданной странице
   MyRange.ShapeRange.Select  'выделяем все spahes на данной странице
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 3

  1. Виталий
    12.12.2008 в 22:56 | #1

    Здравствуйте, Антон! С удовольствие читаю Вашу рассылку и использую, когда не надо применять написанные Вами макросы. Я человек немолодой, но вынужден много работать в Оффисе-2003. Подскажите, пожалуйста, как воспользоваться приводимыми Вами макросами, куда вставляется текс? Извините, за может быть, глупый вопрос.

    С Уважением Виталий.

  2. 13.12.2008 в 09:03 | #2

    Виталий, в конце этой заметки есть ссылки на интересующую вас тему. Прочитайте их и думаю, все станет понятно. Они как раз и предназначены для этого.

  3. 24.11.2010 в 11:34 | #3

    Очень нужная вещь при создании рамок посредством надписей, когда вручную приходится выделять множество полей. Актуально до Word 2010 - там, насколько, я знаю уже есть встроенный иснтрумент для этих целей.

Оставьте комментарий!

(обязательно)

^ Наверх