04-09-2012, 12:44 PM
Hi,
Check this code
Check this code
Code:
Set objWord=Createobject("Word.Application")
objWord.visible=true
Set objDoc=objWord.documents.add()
Set objShape=objDoc.inlineShapes
For i=1 to 3
objShape.addpicture("c:\"&i&".jpg")
objWord.Selection.Typeparagraph()
Next