站长资源网络编程
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") ob
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")
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")