Demonstrationscriptthataddsapicture(C:ScriptsLogo.jog)to

aMicrosoftWorddocument

复制代码 代码如下:

SetobjWord=CreateObject("Word.Application")

objWord.Visible=True

SetobjDoc=objWord.Documents.Add()

SetobjSelection=objWord.Selection

SetobjShape=objDoc.Shapes

objShape.AddPicture("C:ScriptsLogo.jpg")