Запрет копирования стилей из одного документа в другой

[DJTreeno]

Доброго всем времени суток!
Наткнулся на проблему копирования стилей.
Дело в том, что мне не нужно чтобы копировались стили из одного документа в другой.

Хочу найти решение с помощью макроса. Т.е. если пользователь выделяет текст в другом документе, копирует его и вставляет в исходный документ - макрос должен отследить это действие и по нажатию кнопки вставить или комбинации клавиш ctrl+v выполнить следующее:
- любому скопированному фрагменту присвоить стиль "обычный"

Пожалуйста помогите!

[viter.alex]

Гм, не проще ли использовать функцию "Вставить только текст"?

[DJTreeno]

Я думал об этом, но не подходит(((

[DJTreeno]

Таблицы не переносятся тогда

[DJTreeno]

Вот нашел:

Private Sub EditPaste()
MsgBox 'EditPaste event fired!'
' если нужно ПОДАВИТЬ вставку, то просто уберите следующую строчку
Selection.Paste
' ну а теперь можете обработать содержимое буфера обмена 'специальным образом'...
' это самое содержимое можно определить при помощи API GetClipboardData...
' ну или какими-нибудь VBA-финтами )
End Sub

Но как пользоваться API GetClipboardData подскажите плиз

[DJTreeno]

Как начал копаться в работе с Clipboard, так мне аж плохо стало. Ну не ужели нельзя как-то переопределить стили???

[DJTreeno]

Вот альтернатива

Private Sub EditCopy()

Selection.Style = Styles("Обычный")
Selection.Copy


End Sub

[Вождь]

Вставка без переноса стилей делается командой:

Selection.PasteAndFormat Type:=wdFormatSurroundingFormattingWithEmphasis

[DJTreeno]

Фух спасибище Вам огромное:

Итого в нормал дот вставлям:

Private Sub EditCopy()
Selection.Copy
End Sub


Private Sub EditPaste()
Selection.PasteAndFormat Type:=wdFormatSurroundingFormatting WithEmphasis
End Sub

И теперь стили не копируются!!!