Posted on
2006-07-25 11:23赣江源
阅读(1500)
评论(0)
编辑收藏举报
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")