Friday, April 4, 2014

insert screenshot taken in a word document.using Vb script

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

No comments:

Post a Comment