outlookのメールテンプレートの中に表を埋め込みたい

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
VBA初心者です。
VBAを使ってOutlookのメールテンプレートを使って、
そのテンプレートの中に、以下のように
画像や表を追加したいです。

①本文
②エクセルの表 or　画像　（Sheet3にあるA1:C16）
③本文

メールテンプレート内に①と③の本文はすでに入っています。
表を追加するところまではできましたが、表が本文の一番上に入ってしまいます。
すでにテンプレートに記載がある本文と本文の間に、表を埋め込むといった指定をすることはできますか？
初心者のため、ほかのコードの修正も必要であれば教えてください。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

    Set myItem = GetObject(, "Outlook.Application").CreateItemFromTemplate("XXX .oft")

    With myItem

        .Display

.BodyFormat = 2

End With


Worksheets("Sheet3").Select: Range("A1:C16").Select
Selection.Copy
Set oApp = CreateObject("Outlook.Application")
Set objMAIL = oApp.CreateItem(0)
oApp.ActiveInspector.WordEditor.Windows(1).Selection.Paste
Application.CutCopyMode = False


End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

図表を挿入したい位置に【表図】を記入しておいてください。
【表図】の位置取得して、そこにペーストしています。

文字位置決まっていていれば、決め打ちでいいです
WordEditor.Range(r1, r2).Paste としたら
ｒ１文字目からｒ２文字目にペースト（置換）となります。

Excel vba

Sub tes1()

Dim objOL As New Outlook.Application
Set myItem = objOL.CreateItemFromTemplate("XXX .oft")
With myItem
    .Display
    .BodyFormat = 2 'HTML
End With
'【表図】の位置取得
r = InStr(myItem.Body, "【表図】")
myItem.Body = Replace(myItem.Body, "【表図】", "")
'
Set oApp = CreateObject("Outlook.Application")
Set objMail = oApp.CreateItem(0)
'表　図選択

Worksheets("Sheet3").Select: Range("A1:C16").Select
Selection.Copy
'貼り付け
oApp.ActiveInspector.WordEditor.Range(r, r).Paste
Application.CutCopyMode = False
End Sub

Comments

[minako_tera]

遅くなりました、申し訳ありません。できました！助かりました。