aMicrosoftWorddocument
复制代码 代码如下:
SetobjWord=CreateObject("Word.Application")
objWord.Visible=True
SetobjDoc=objWord.Documents.Add()
SetobjSelection=objWord.Selection
SetobjShape=objDoc.Shapes
objShape.AddPicture("C:ScriptsLogo.jpg")
SetobjShape=objDoc.Shapes
objShape.AddPicture("C:ScriptsLogo.jpg")