#1
|
|||
|
|||
Change all images into text with counter
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 (...) |
#2
|
||||
|
||||
So what's supposed to go into the (...)?
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Nothing. It is only clarification.
Need a text instead of images with counter only. |
#4
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
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 |