Я хотел бы назначить макрос в Outlook 2007 на кнопку панели инструментов, которая будет выполнять эквивалент этих кликов, когда есть форматированный текст в буфере обмена Windows:
У меня есть аналогичные макросы в Excel 2007 и Word 2007, но не смогли заставить его работать в Outlook 2007 / VBA. Что бы VBA код для такого макроса быть?
3084
С большим количеством помощи от автора Сью Мошер, я, наконец, удалось получить макрос, работающий на Outlook 2007, чтобы автоматизировать щелчки мыши вставить-вставить специальный Неформатированный текст! WOO-HOO!!!!
большая часть того, что я вырезать и вставить в Outlook сообщения электронной почты отформатирован. Вставка с CTRL-V или нажав кнопку Вставить сохраняет форматирование нетронутыми. Нажатие Paste-Paste Special-Unformatted Text не имеет большого значения, но это занимает несколько секунд каждый раз, когда я это делаю – и Я часто этим занимаюсь. Так что эта штучка сэкономит мне время.
подпрограмма VBA:
KompSub Paste_Special_Unformatted()
Dim objDoc As Word.Document
Dim objSel As Word.Selection
On Error Resume Next
' get a Word.Selection from the open Outlook item
Set objDoc = Application.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
' now do what you want with the Selection
objSel.PasteSpecial Link:=False, DataType:=wdPasteText
Set objDoc = Nothing
Set objSel = Nothing
End Sub
чтобы заставить его работать, мне также нужно было открыть редактор VBA в Outlook 2007, нажать Tools-References и включить reference для библиотеки объектов Microsoft Word 12.0. Затем я связал макрос пользовательской кнопки в панели инструментов для создания новых сообщений и ответов, и он работал просто отлично!
Я говорил раньше, но WOO-HOO!!!!
спасибо, Сью!
должно совпадать с Word 2007:
Sub FormatText()
'
' FormatText Macro
'
'
Selection.PasteAndFormat (wdFormatPlainText)
Selection.PasteSpecial Link:=False, DataType:=20, Placement:=wdInLine, _
DisplayAsIcon:=False
End Sub
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
