Freigeben über


Полезный макрос - Paste Raw

Всякий раз, когда я начинаю работать с MS Office на новой машине, первым делом (после отключения персонализирующихся меню) я записываю простенький макрос, позволяющий вставлять в документ текст из других документов и веб-страниц без сохранения форматирования.

Для MS Word 2007 работает макрос:
Sub PasteRaw()
    Selection.PasteAndFormat wdFormatPlainText
End Sub

Тот же макрос для MS Outlook 2007 выглядит так:
Sub PasteRaw()
    Outlook.ActiveWindow.WordEditor.Application.Selection.PasteAndFormat wdFormatPlainText
End Sub

В последнем случае нужно не забыть добавить в меню Tools\References ссылку на Microsoft Word 12.0 Object Library или заменить константу wdFormatPlainText ее числовым значением 22.

Для удобства можно добавить кнопку для запуска макроса на Панель быстрого доступа (Quick Access Toolbar) и назначить ей понятное название и картинку.