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")