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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.06.2011, 10:22   #1
DJTreeno
Форумчанин
 
Регистрация: 09.06.2011
Сообщений: 146
Восклицание Привязка макроса к конкретной таблице

Доброго всем времени суток!!!

У меня есть таблица в Word, для нее написан макрос форматирования. Возможно ли сделать так, чтобы макрос запускался без участия пользователя, т.е. не нужно было выделять таблицу и только потом применять к ней макрос, а например при нажатии на крестик (выход) запускался макрос?

Как сделать чтоб макрос четко был привязан к конкретной таблице?

Заранее благодарен!!!
DJTreeno вне форума Ответить с цитированием
Старый 21.06.2011, 22:49   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Определите закладку, например "MyTabl", где-нибудь в таблице. тогда всю таблицу можно получить так:
Код:
Dim tbl As Table
Set tbl = ThisDocument.Bookmarks("MyTabl").Range.Tables(1)
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 22.06.2011, 16:45   #3
DJTreeno
Форумчанин
 
Регистрация: 09.06.2011
Сообщений: 146
По умолчанию

Спасибо огромнейшее!!!
DJTreeno вне форума Ответить с цитированием
Старый 22.06.2011, 16:54   #4
DJTreeno
Форумчанин
 
Регистрация: 09.06.2011
Сообщений: 146
По умолчанию

Что то не получается пишет ошибку во второй строке. Может потому, что таблица у меня связана с Excel... (((
DJTreeno вне форума Ответить с цитированием
Старый 22.06.2011, 16:56   #5
DJTreeno
Форумчанин
 
Регистрация: 09.06.2011
Сообщений: 146
По умолчанию

Я еще нашел вот что в скрытых закладках эта таблица фигурирует под именем "_1370160208" Но все равно не выходит.
DJTreeno вне форума Ответить с цитированием
Старый 22.06.2011, 18:33   #6
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,040
По умолчанию

> пишет ошибку во второй строке
всё верно выложивший ошибся, ответ в соседнем топике и здесь
ActiveDocument.Tables(2).
Не стоит обладываться закладками
Ципихович Эндрю вне форума Ответить с цитированием
Старый 22.06.2011, 19:43   #7
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

> Может потому, что таблица у меня связана с Excel... (((

Да, маленький такой нюансик

> ActiveDocument.Tables(2).
Не стоит обладываться закладками

А если юзер вставит таблицу перед этой таблицей? Где "четкая привязка"?
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 23.06.2011, 04:50   #8
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,040
По умолчанию

Автор спрашивал
Как сделать чтоб макрос четко был привязан к конкретной таблице?
Вот ему и привязка ко 2 й

Не стоит обладываться закладками
А если её кто-то удалит

Спор не о чём - я и Вы понимаете, что можно сделать 3-4 проверки и точно знать о какой таблице идёт речь
Ципихович Эндрю вне форума Ответить с цитированием
Старый 23.06.2011, 09:20   #9
DJTreeno
Форумчанин
 
Регистрация: 09.06.2011
Сообщений: 146
По умолчанию

Ну подскажите мне пожалуйста, как сделать проверки, я ж не знаю )))

И еще эта таблица, которая связана с Excel уже идет с скрытой закладкой "_1370160208"
Но такой код:

Dim tbl As Table
Set tbl = ThisDocument.Bookmarks("_1370160208 ").Range.Tables(1)

Не выполняется!!! Может где-то тут решение...
DJTreeno вне форума Ответить с цитированием
Старый 23.06.2011, 09:24   #10
DJTreeno
Форумчанин
 
Регистрация: 09.06.2011
Сообщений: 146
По умолчанию

Вот этот код работает:

ActiveDocument.Tables(3).Select

Но привязки к конкретной таблице нет, этой 3-ей таблицей может быть любая.

Пожалуйста помогите, очень Вас прошу!!!
DJTreeno вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выполнение макроса по завершении редактирования конкретной ячейки Обыватель Microsoft Office Excel 2 20.05.2010 11:52
Создание кнопки и привязка макроса НеВа6464 Microsoft Office Excel 2 11.11.2009 20:57
Слияние шаблона с данными из таблице, и как подсичтать значение количества полей в таблице n4ela Microsoft Office Access 3 07.03.2009 12:04
Запуск макроса с параметрами из другого макроса Saladin Microsoft Office Excel 2 19.01.2009 09:43
Привязка макроса к кнопке VisuaL Microsoft Office Excel 7 10.05.2008 07:04