Replace all images into new ones

[maciej_wroclaw]

Hello,

I am quite fresh to Word VBA object model, therefore my code examples may be far away of proper solution. I will appreciate any help, hint which can help.
Here is my problem:

On my Word document I have many pages. On each page I have picture inserted. It is on bottom of a page, but it is not a footer yet.

I was able to remove old picture and add new one in the same place where the old was. Here is my routine:

Set oWrd = wrdApp.Documents.Open(sPath)
        For i = oWrd.Shapes.Count To 1 Step -1
            With oWrd.Shapes(i)
                .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                dTop = .Top
                dLeft = .Left
                dHeight = .Height
                dWidth = .Width
                .Delete
            End With

            Set sh = oWrd.Shapes.AddPicture(sPathPicture, , True, dLeft - oWrd.PageSetup.LeftMargin, dTop - oWrd.PageSetup.TopMargin, dWidth, dHeight)
        Next i
        oWrd.Close True

I've noticed that new pictures are added always on the first page. I believe that 'top' is being measured from the top of the 'current' page.

I've googled a little bit and found this piece of code:

Set sh = oWrd.Shapes.AddPicture(sPathPicture, , True, dLeft - oWrd.PageSetup.LeftMargin, dTop - oWrd.PageSetup.TopMargin, dWidth, dHeight, oWrd.Range.GoTo(1, 2, PageNumber))

but I have no idea how to check the 'pagenumber' of respective shape.

To sum up:
I would like to delete all pictures from all pages (above routines do the job) and add new picture at the same coordinates.

Thanks in advance for your help.

 

[macropod]

Cross-posted at:
Replace all images into new ones (also solved here)
[SOLVED] Replace all images into new ones
Replace all images into new ones - VBA Express Forum
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters