在WORD文档里每一页的相同位置插入不同的图片的宏代码如何修改？

在WORD文档里每一页的相同位置插入同一图片的宏代码如下:


Sub InsPic()
 Dim pag As Integer
 For pag = 1 To Selection.Information(wdNumberOfPagesInDocument)
   Selection.GoTo what:=wdGoToPage, Name:=pag
   ActiveDocument.Shapes.AddPicture FileName:="d:\pic.wmf", Left:=330, Top:=-30, Anchor:=Selection.Range
 Next
End Sub

但是如果是不同图片呢？比如：d:\pic1.wmf、pic2.wmf、pic3.wmf.。。。。。呢？

第一页对应pic1.wmf
第二页对应pic2.wmf
第三页对应pic3.wmf
。。。。。


“ActiveDocument.Shapes.AddPicture FileName:="d:\pic.wmf", ”

这句怎么修改？