Add a Picture to a Microsoft Word Document

Demonstration script that adds a picture (C:ScriptsLogo.jog) to 
a Microsoft Word document

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objShape = objDoc.Shapes
objShape.AddPicture("C:ScriptsLogo.jpg")