MS word multiple pictures to be replaced within table

Question

Hi,

I have one word file which contains a table with 3 rows and 2 columns each cell contains some image and want to replace the image with new image with same width and height.

Total 6 pictures in one page and there are multiple pages. i want code to identify picture actual name and replace with new picture with same size. tried with below code but not able to identify picture actual name.

Dim rg As Word.Range
  Dim i As Long
  Dim doc As Word.Document
  Dim path As String
 

  path = "FileName"

   Set doc = ActiveDocument

For i = doc.InlineShapes.Count To 1 Step -1
  Set rg = doc.InlineShapes(i).Range
  doc.InlineShapes(i).Select

Please help me with this. thank you in advance

Answer 1

https://www.techrepublic.com/article/how-to-turn-a-word-table-cell-into-a-picture-placeholder/

Answer 2

This is manual method i need VBA code to do all these setps.

I need to identify and replace image with same size.