Com muita ajuda da autora Sue Mosher, finalmente consegui uma macro trabalhando no Outlook 2007 para automatizar os cliques do mouse de Colar - Colar Especial - Texto Não Formatado! WOO-HOO !!!!
A maior parte do que eu corto e colo nas mensagens de e-mail do Outlook é formatada. Colar com CTRL-V ou clicando no botão Colar mantém essa formatação intacta. Clicar em Colar - Colar especial - Texto não formatado não é grande coisa, mas leva alguns segundos toda vez que faço isso - e faço muito isso. Então essa pequena coisa será uma economia de tempo para mim.
A sub-rotina do VBA:
Sub 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
Para fazê-lo funcionar, também precisei abrir o editor do VBA no Outlook 2007, clicar em Ferramentas - Referências e habilitar a referência para a biblioteca de objetos do Microsoft Word 12.0. Em seguida, vinculei a macro a um botão personalizado nas barras de ferramentas do QAT para criar novas mensagens e respostas e funcionou muito bem!
Eu já mencionei isso antes, mas WOO-HOO !!!!
Obrigado, Sue!