Change all images into text with counter

[Slamzor]

Hi, I have a lot of images in docx file, MS Word 2016.
I need to change all images (Inlineshapes) into text with counter like this:


Picture 1 (instead of image)
Picture 2 (...)
...
Picture N (...)

[macropod]

So what's supposed to go into the (...)?

[Slamzor]

Originally Posted by macropod

So what's supposed to go into the (...)?

Nothing. It is only clarification.
Need a text instead of images with counter only.

[macropod]

Try:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = .InlineShapes.Count To 1 Step -1
    With .InlineShapes(i)
      .Range.InsertBefore "Picture " & i
      .Delete
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

[Slamzor]

Thx! Works great!