|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2012, 11:34 | #1 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Запрет копирования стилей из одного документа в другой
Доброго всем времени суток!
Наткнулся на проблему копирования стилей. Дело в том, что мне не нужно чтобы копировались стили из одного документа в другой. Хочу найти решение с помощью макроса. Т.е. если пользователь выделяет текст в другом документе, копирует его и вставляет в исходный документ - макрос должен отследить это действие и по нажатию кнопки вставить или комбинации клавиш ctrl+v выполнить следующее: - любому скопированному фрагменту присвоить стиль "обычный" Пожалуйста помогите! |
15.11.2012, 15:57 | #2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Гм, не проще ли использовать функцию "Вставить только текст"?
Лучше день потерять — потом за пять минут долететь!©
|
16.11.2012, 11:18 | #3 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Я думал об этом, но не подходит(((
|
16.11.2012, 11:19 | #4 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Таблицы не переносятся тогда
|
16.11.2012, 11:40 | #5 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Вот нашел:
Private Sub EditPaste() MsgBox 'EditPaste event fired!' ' если нужно ПОДАВИТЬ вставку, то просто уберите следующую строчку Selection.Paste ' ну а теперь можете обработать содержимое буфера обмена 'специальным образом'... ' это самое содержимое можно определить при помощи API GetClipboardData... ' ну или какими-нибудь VBA-финтами ) End Sub Но как пользоваться API GetClipboardData подскажите плиз |
16.11.2012, 13:24 | #6 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Как начал копаться в работе с Clipboard, так мне аж плохо стало. Ну не ужели нельзя как-то переопределить стили???
|
16.11.2012, 15:03 | #7 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Вот альтернатива
Private Sub EditCopy() Selection.Style = Styles("Обычный") Selection.Copy End Sub |
17.11.2012, 08:39 | #8 |
Форумчанин
Регистрация: 29.09.2008
Сообщений: 378
|
Вставка без переноса стилей делается командой:
Код:
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
|
19.11.2012, 10:55 | #9 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Фух спасибище Вам огромное:
Итого в нормал дот вставлям: Private Sub EditCopy() Selection.Copy End Sub Private Sub EditPaste() Selection.PasteAndFormat Type:=wdFormatSurroundingFormatting WithEmphasis End Sub И теперь стили не копируются!!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание скрипта для копирования данных из одного документа в другой | artem_b | Microsoft Office Excel | 5 | 20.02.2012 18:02 |
Копирование значения ячеек с одного документа в другой | sulasevich | Microsoft Office Excel | 1 | 03.11.2011 16:19 |
Копирование числа из одного документа в другой | novak3 | Общие вопросы C/C++ | 5 | 07.09.2011 22:55 |
как скопировать лист оз одного документа в другой | trunx | Microsoft Office Word | 9 | 14.06.2010 02:58 |
передача данных ячейки из одного документа в другой. | iamaxl | Microsoft Office Excel | 3 | 04.07.2009 07:08 |