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

@tea84 · Регистрация: 11.10.2010

Студворк — интернет-сервис помощи студентам

Доброго всем времени суток..
Когда-то я читала тему про то, как с помощью WinAPI перехватили нажатие клавиш в MS Word.. А вот теперь, когда подобное понадобилось, найти не могу..
Может, кто подскажет, как мне в Worde перехватить событие Paste..
Строго говоря, такого в Word вообще нет, но все же..
Оно ведь запускается при нажатии на кнопку в CommandBar (ну, кнопку я могу заменить...), при выборе меню Правка-Втавить, при нажатии на зарезервированные сочетания клавиш (а их может быть великое множество), при выборе Вставить из контекстного меню, вызываемого нажтием соответствующей клавиши на клавиатуре или мыше...
А в результате мне надо после того, как вставится текст обработать его специальным образом..
Что делать, ума не приложу...

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.

15.04.2011, 01:28

PPS: 'Фенька' в том, чтобы обозвать Sub также, как называется встроенная 'Команда Word'. Т.е. таким макаром можно подменять не только вставку, а цельную кучу команд.

@tea84 · 16.04.2011, 23:08 **[ТС]**

Потрясающе! СПАСИБО!!!

@tea84 · 17.04.2011, 12:23 **[ТС]**

А каким способом можно узнать эти самые названия методов и функций Word? методом проб и ошибок?

17.04.2011, 14:28

Один из способов:
Меню Сервис / Макрос / Макросы... - ищешь комбобокс 'Макросы из', выбираешь в ней 'Команд Word', смотришь выше в список...

@poiskxxx · 17.04.2011, 17:31

а в EXCELL????
что то не идет.

@Grr · 30.07.2015, 08:37

Подскажите, что может быть не так. У меня офис 2013. Скопировал приведенный код. И вроде событие стало перехватываться. Но затем перестало. Я не могу этого добиться.

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

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

Добавлено через 1 час 37 минут
Убрал Private, стало работать

Новые блоги и статьи Все статьи Все блоги /
Новый 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. . .

@tea84 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

Comanche
	15.04.2011, 01:28
	PPS: 'Фенька' в том, чтобы обозвать Sub также, как называется встроенная 'Команда Word'. Т.е. таким макаром можно подменять не только вставку, а цельную кучу команд.

@tea84 0 / 0 / 0 Регистрация: 11.10.2010 Сообщений: 21
	16.04.2011, 23:08 [ТС]
	Потрясающе! СПАСИБО!!! 0

@tea84 0 / 0 / 0 Регистрация: 11.10.2010 Сообщений: 21
	17.04.2011, 12:23 [ТС]
	А каким способом можно узнать эти самые названия методов и функций Word? методом проб и ошибок? 0

Comanche
	17.04.2011, 14:28
	Один из способов: Меню Сервис / Макрос / Макросы... - ищешь комбобокс 'Макросы из', выбираешь в ней 'Команд Word', смотришь выше в список...

@poiskxxx 0 / 0 / 0 Регистрация: 02.09.2010 Сообщений: 102
	17.04.2011, 17:31
	а в EXCELL???? что то не идет. 0

@Grr 0 / 0 / 0 Регистрация: 21.04.2014 Сообщений: 8
	30.07.2015, 08:37
	Подскажите, что может быть не так. У меня офис 2013. Скопировал приведенный код. И вроде событие стало перехватываться. Но затем перестало. Я не могу этого добиться. Если по кейсу, то мне необходимо чтоб в документе любой копируемый блок вставлялся как текст. Применялся текущий формат. Вот по этой ссылке пример описания (https://msdn.microsoft.com/en-... 91763.aspx). Но не могу перехватить событие. Добавлено через 1 час 37 минут Убрал Private, стало работать 0