Статьи из блога
Как выделить все объекты 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
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: макросы | рисунки
Просмотров: 19609
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | рисунки
Просмотров: 19609
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Комментариев: 3
Здравствуйте, Антон! С удовольствие читаю Вашу рассылку и использую, когда не надо применять написанные Вами макросы. Я человек немолодой, но вынужден много работать в Оффисе-2003. Подскажите, пожалуйста, как воспользоваться приводимыми Вами макросами, куда вставляется текс? Извините, за может быть, глупый вопрос.
С Уважением Виталий.
Виталий, в конце этой заметки есть ссылки на интересующую вас тему. Прочитайте их и думаю, все станет понятно. Они как раз и предназначены для этого.
Очень нужная вещь при создании рамок посредством надписей, когда вручную приходится выделять множество полей. Актуально до Word 2010 - там, насколько, я знаю уже есть встроенный иснтрумент для этих целей.