如何替换word页眉表格中的图片

yayahzmeng

好久没来论坛啦，今天碰到一难题来求助一下：
word文档，页眉中有一表格，表格中图片和文字混排。
现 要求：
1、将图片替换成指定的另一张图片
2、替换后，图片设置成“左对齐+顶端对齐”，等比例缩放，高度设置2.6cm
3、能自动判断页眉表格中是否存在图片，存在的情况下才替换

搜了下网络，找到几句代码，但存在一些问题，具体见附件。
先发在VBA开发板块，暂无人出手。本人对word的对象和属性基本一窍不通，请各位word软件的VBA高手出手指点，不胜感激！

源理

1. Sub test()
   
2.     Dim header As HeaderFooter
   
3.     Set header = Sections(1).Headers(wdHeaderFooterPrimary)
   
4.     Dim shp As Shape
   
5.     Dim rng As Range
   
6.     Dim newshp As InlineShape
   
7.     Dim newshp2 As Shape
   
8.     For Each shp In header.Shapes
   
9.         If shp.Type = msoPicture Then
   
10.             shp.Delete
    
11.         End If
    
12.     Next
    
13.     Set rng = header.Range.Tables(1).Cell(1, 1).Range
    
14.     Set newshp = rng.InlineShapes.AddPicture(ThisDocument.Path & "/侧.jpeg")
    
15.     Set newshp2 = newshp.ConvertToShape
    
16.     newshp2.Height = 2.6 * 28.35
    
17.     newshp2.Width = 2.6 * 28.35
    
18.     newshp2.WrapFormat.Type = wdWrapTight
    
19. End Sub
    

复制代码