С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.52/21: Рейтинг темы: голосов - 21, средняя оценка - 4.52
0 / 0 / 0
Регистрация: 11.10.2010
Сообщений: 21

Перехват "события" Paste в MS Word

14.04.2011, 18:02. Показов 4311. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго всем времени суток..
Когда-то я читала тему про то, как с помощью WinAPI перехватили нажатие клавиш в MS Word.. А вот теперь, когда подобное понадобилось, найти не могу..
Может, кто подскажет, как мне в Worde перехватить событие Paste..
Строго говоря, такого в Word вообще нет, но все же..
Оно ведь запускается при нажатии на кнопку в CommandBar (ну, кнопку я могу заменить...), при выборе меню Правка-Втавить, при нажатии на зарезервированные сочетания клавиш (а их может быть великое множество), при выборе Вставить из контекстного меню, вызываемого нажтием соответствующей клавиши на клавиатуре или мыше...
А в результате мне надо после того, как вставится текст обработать его специальным образом..
Что делать, ума не приложу...
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.04.2011, 18:02
Ответы с готовыми решениями:

Copy/Paste текста в Word
Уважаемые! Не сочтите за труд, подскажите - что не так делаю? Нужно: - открыть в фоновом режиме источник (путь - FileSource); -...

Программно выделить часть табличного документа и сделать Copy-Paste в Word
Появилась такая задумка (нужна в реальной жизни). "Вручную" это выглядело бы так. Формируется табличный документ с отчётом. Затем встаём...

Перехват события
Всем привет. Есть страница комментариев. У коммента кнопка удаления. При клике срабатывает метод js, который возвращает false. Можно ли в...

7
Comanche
15.04.2011, 01:26
В документ или в шаблон (который 'подключён' и активен): вставьте следующее или в код объекта 'ThisDocument', или в код модуля:
Visual Basic
1
2
3
4
5
6
7
8
Private Sub EditPaste()
    MsgBox 'EditPaste event fired!'
    ' если нужно ПОДАВИТЬ вставку, то просто уберите следующую строчку
    Selection.Paste
    ' ну а теперь можете обработать содержимое буфера обмена 'специальным образом'...
    ' это самое содержимое можно определить при помощи API GetClipboardData...
    ' ну или какими-нибудь VBA-финтами :))
End Sub
PS: есть ещё EditPasteAsHyperlink, EditPasteAsNestedTable, EditPasteSpecial.
Comanche
15.04.2011, 01:28
PPS: 'Фенька' в том, чтобы обозвать Sub также, как называется встроенная 'Команда Word'. Т.е. таким макаром можно подменять не только вставку, а цельную кучу команд.
0 / 0 / 0
Регистрация: 11.10.2010
Сообщений: 21
16.04.2011, 23:08  [ТС]
Потрясающе! СПАСИБО!!!
0
0 / 0 / 0
Регистрация: 11.10.2010
Сообщений: 21
17.04.2011, 12:23  [ТС]
А каким способом можно узнать эти самые названия методов и функций Word? методом проб и ошибок?
0
Comanche
17.04.2011, 14:28
Один из способов:
Меню Сервис / Макрос / Макросы... - ищешь комбобокс 'Макросы из', выбираешь в ней 'Команд Word', смотришь выше в список...
0 / 0 / 0
Регистрация: 02.09.2010
Сообщений: 102
17.04.2011, 17:31
а в EXCELL????
что то не идет.
0
0 / 0 / 0
Регистрация: 21.04.2014
Сообщений: 8
30.07.2015, 08:37
Подскажите, что может быть не так. У меня офис 2013. Скопировал приведенный код. И вроде событие стало перехватываться. Но затем перестало. Я не могу этого добиться.

Если по кейсу, то мне необходимо чтоб в документе любой копируемый блок вставлялся как текст. Применялся текущий формат. Вот по этой ссылке пример описания (https://msdn.microsoft.com/en-... 91763.aspx).

Но не могу перехватить событие.

Добавлено через 1 час 37 минут
Убрал Private, стало работать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.07.2015, 08:37
Помогаю со студенческими работами здесь

Перехват события
Есть функция которая при нажатии на submit вызывает alert Как сделать чтобы вызов алерта перехватывался и перед ним выполнялось любое...

Перехват события
Добрый день, возник вопрос. Есть форма требуется по нажатию крестика(стандартного закрыть окно), перехватить событие и не закрывать форму,...

Перехват события в Fullscreen
Здравствуйте знатоки. Сделал проигрыватель видео который можно переходить в полноэкранный режим при нажатии "кнопки", при...

Перехват события печати
Всем привет. Подскажите каким образом можно на удаленном узле, расположенном в лок. сети, перехватывать событие отправки документа на...

Перехват события BACK
Проблема в седующем, нужно перехватить событие Back. Если логически размышлять то это стандартный объект и его можно наверное...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru