Add a Picture to a Microsoft Word Document

　　Demonstration script that adds a picture (C:\Scripts\Logo.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:\Scripts\Logo.jpg")