今天遇到个难道，是关于word页眉中表格内图片批量替换的

从没接触过WORD的VBA，来学习下。

我录了下宏，可以删图加图，不过这是模拟到页眉里的，不知要批量操作要怎么弄。
Sub 宏1()
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.InlineShapes.AddPicture FileName:="F:\图片\QQ\棒锤.GIF", LinkToFile _
:=False, SaveWithDocument:=True
End Sub

有点进展，
Table().cell().range.text返回单元格的text,
如果单元格内有n个图片，用for each shp in cell().range.shapes?
说着说着我就蒙圈了，在excel中，单元格内多图片怎么遍历来着？

回来试了几次，算是找出问题来了，
这个图片可以用inlineshape对像来表示，层次与table同等，如
ActiveDocument.Sections(1).Headers(1).Range.InlineShapes(index)
这句是合法的，
而之前老是理解成
ActiveDocument.Sections(1).Headers(1).tables(1).cells(row:=1,column:=1).Range.InlineShapes(index)
i
谢谢楼上各位的帮忙，请大家吃瓜。
瓜没找着，
还是喝茶吧