Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2014, 15:48   #1
DBEER
Пользователь
 
Регистрация: 13.03.2014
Сообщений: 76
Восклицание Word из VBA: Как узнать/изменить Name группы фигур

Нарисовал линии, надписи, объединил в группу, помещаю это в колонтитул (Осн.надпись, штамп по ГОСТу), чтобы затем программно манипулировать при случае . Например, надо сменить ориентацию страницы с вертикальной на гориз. Как действовать примерно представляю, руками прошел путь (разрывы разделов в нужных местах, манипуляции с "рамкой и т.д...) ВОт надо "схватить" группу, в которую объединены "молекулы" основной надписи и переместить в нужное место. Макрорекордер мне выдает имя группы "ЁПРСТ16", которое сформировал Word автоматом. Я его вижу, но боюсь, сохранится ли оно дальше?
Нельзя ли присвоить своё? Сам пока не нарыл.
DBEER вне форума Ответить с цитированием
Старый 10.04.2014, 13:45   #2
DBEER
Пользователь
 
Регистрация: 13.03.2014
Сообщений: 76
По умолчанию Сам нашёл..

..в VBA:
Выделяешь группу
в окне "Immediate" пишешь:
Цитата:
Selection.ShapeRange.Name="МоёИмяГр уппы"
DBEER вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Word из VBA: как узнать № раздела, в котором стоит курсор? DBEER Microsoft Office Word 6 10.04.2014 08:58
Как узнать имя группы (не пользователя) aank10 Qt и кроссплатформенное программирование С/С++ 1 24.07.2013 16:06
Как изменить толщину пера в таблице Word? vershik Общие вопросы Delphi 1 28.11.2012 13:10
VBA Как изменить BG? Fakeme Microsoft Office Excel 4 31.01.2012 23:47
Как узнать что строка является корневым узлом группы rdama Microsoft Office Excel 3 11.10.2010 03:00