Set oWord=nothing
Set oWord=GetObject(,"Word.Application")
Set oDoc=oWord.documents.Open("Полный путь к файлу.rtf")
Set oSel = oWord.Selection
oSel.GoTo wdGoToPage,wdGoToNext,"2"
oSel.InlineShapes.AddPicture("Полный путь к картинке.bmp")
Set oDoc=nothing
Set oWord=nothing

Set oWord=nothing
Set oWord=GetObject(,"Word.Application")
Set oDoc=oWord.documents.Open("Полный путь к файлу.rtf")

Set wrdRangeAnchor = oDoc.ActiveWindow.Selection.GoTo(wdGoToPage, wdGoToAbsolute, 3)
oDoc.Shapes.AddPicture "Полный путь к картинке.bmp", , , , , , , wrdRangeAnchor

Set oDoc=nothing
Set oWord=nothing