Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 04-10-2018, 05:38 AM
Slamzor Slamzor is offline Change all images into text with counter Windows 10 Change all images into text with counter Office 2016
Novice
Change all images into text with counter
 
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 offline Change all images into text with counter Windows 7 64bit Change all images into text with counter Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

So what's supposed to go into the (...)?
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #3  
Old 04-11-2018, 12:01 AM
Slamzor Slamzor is offline Change all images into text with counter Windows 10 Change all images into text with counter Office 2016
Novice
Change all images into text with counter
 
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 offline Change all images into text with counter Windows 7 64bit Change all images into text with counter Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
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
[Fmr MS MVP - Word]
Reply With Quote
  #5  
Old 04-16-2018, 07:46 AM
Slamzor Slamzor is offline Change all images into text with counter Windows 10 Change all images into text with counter Office 2016
Novice
Change all images into text with counter
 
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
Change all images into text with counter 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
Change all images into text with counter How to Wrap Text on Images in Text Boxes mrniceguy Word 1 02-16-2014 04:42 PM
Change all images into text with counter powerpoint slide hit counter breisleach PowerPoint 7 08-30-2013 12:25 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 10:01 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft