
我在 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."