我在 MS Word 中创建了这个宏,它运行良好,但是当我将它复制到 Outlook 2010 宏中时它不起作用。如能得到任何帮助我将不胜感激。
Sub Thanks1()
'
' Thanks1 Macro
'
'
Selection.TypeText Text:="Thank you for the quote."
End Sub
答案1
如果你看看此链接您会发现它是Namespace: Microsoft.Office.Interop.Word
Word 特有的一部分。
因此,在 Outlook 中,您首先需要访问 Word 编辑器;因此:
Set objDoc = Application.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.TypeText Text:="Thank you for the quote."