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

Published 07 November 06 08:29 AM | Vitaliy Titov 

Всякий раз, когда я начинаю работать с 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) и назначить ей понятное название и картинку.

Filed under: , , , ,

Comments

No Comments
Anonymous comments are disabled

Search

This Blog

Syndication

Page view tracker