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