Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Word > Drawing and Graphics

Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old 04-10-2018, 05:38 AM
Slamzor Slamzor is offline Windows 10 Office 2016
Novice
 
Join Date: Dec 2017
Posts: 7
Slamzor is on a distinguished road
Default 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 (...)
Reply With Quote
  #2  
Old 04-10-2018, 09:55 PM
macropod's Avatar
macropod macropod is online now Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 17,820
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

So what's supposed to go into the (...)?
__________________
Cheers,
Paul Edstein
[MS MVP - Word]
Reply With Quote
  #3  
Old 04-11-2018, 12:01 AM
Slamzor Slamzor is offline Windows 10 Office 2016
Novice
 
Join Date: Dec 2017
Posts: 7
Slamzor is on a distinguished road
Default

Quote:
Originally Posted by macropod View Post
So what's supposed to go into the (...)?
Nothing. It is only clarification.
Need a text instead of images with counter only.
Reply With Quote
  #4  
Old 04-11-2018, 02:36 PM
macropod's Avatar
macropod macropod is online now Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 17,820
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

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
[MS MVP - Word]
Reply With Quote
  #5  
Old 04-16-2018, 07:46 AM
Slamzor Slamzor is offline Windows 10 Office 2016
Novice
 
Join Date: Dec 2017
Posts: 7
Slamzor is on a distinguished road
Default

Thx! Works great!
Reply With Quote
Reply

Thread Tools
Display Modes


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


All times are GMT -7. The time now is 06:37 AM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft