html生成word页眉图片,[转载]一些WORD VBA代码（替换页眉页脚、批量设置格式、图片插入等）...

Sub Macro1()

ActiveDocument.Tables(1).Cell(3, 1).Select

Selection.InlineShapes.AddPicture FileName:="C:a.jpg",

LinkToFile:=True, SaveWithDocument:=True

End Sub

HF

Private  Sub  Command1_Click()

Dim  xApp  As  New  Word.Application

Dim  xDoc  As  Document

Dim  xShape  As  InlineShape

Set  xApp  =

New  Word.Application

'添加文档并返回文档对象

Set  xDoc  =

xApp.Documents.Add

'插入一个图形Shape并返回其对象引用

Set  xShape  =  xDoc.InlineShapes.AddPicture( "D:2003

documentMy  Pictures1_151_115.jpg ")

'设置Shape的大小

xShape.Width  =

200

xShape.Height  =

200

Set  xShape  =  Nothing

'保存

xDoc.SaveAs  "c:dfgh.doc

"

xDoc.Close

xApp.Quit

Set  xDoc  =