Change all images into text with counter

Slamzor · #1 04-10-2018, 05:38 AM

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 · #2 04-10-2018, 09:55 PM

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

Slamzor · #3 04-11-2018, 12:01 AM

Quote:

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 · #4 04-11-2018, 02:36 PM

Try:

Code:

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 · #5 04-16-2018, 07:46 AM

Thx! Works great!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
help creating a dollar counter add-in	dstallworth	PowerPoint	0	04-23-2017 12:49 PM
add counter everytime a 1 appears in a cell	speedy1	Excel	0	01-16-2016 01:22 AM
ord vba replace the variable text with variable images to make offer products with images	tanzinim	Word VBA	4	12-30-2015 01:40 PM
How to Wrap Text on Images in Text Boxes	mrniceguy	Word	1	02-16-2014 04:42 PM
powerpoint slide hit counter	breisleach	PowerPoint	7	08-30-2013 12:25 AM