Set win = CreateObject("word. application")
win.Documents.Open "D:\screenshots.doc" ' open existing file
win.Selection.InlineShapes. AddPicture ("D:\dd.bmp") ' adding sample pictures
win.Selection.EndKey ' inserting end key to avoid overlapping
win.Selection.InsertBreak
win.Selection.InlineShapes. AddPicture ("D:\dd.bmp")
win.Documents.Save
win.Documents.Close
win.Quit
Set win = nothing