Replacing all images in a document with numbered files

		Microsoft Office Forums > Microsoft Word > Word VBA
Replacing all images in a document with numbered files

FAQ

Thread Tools

Display Modes

#13

12-11-2015, 01:12 PM

macropod

Windows 7 64bit Replacing all images in a document with numbered files

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,527

As I've already indicated, the code I provided works with inlineshapes only, not with floating shapes. The code snippet you posted may not convert all shapes to inlineshapes. Try:

Code:

With ActiveDocument
  While .Shapes.Count > 0
    .Shapes(1).ConvertToInlineShape
  Wend
End With

Even this code won't convert shapes in the header/footer, for example, but neither does the macro I posted previously process anything there.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Tags

change, figures

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replacing multiple words at once in excel document	Legaly	Excel	2	05-23-2014 08:30 AM
Insert images with incrementallly-numbered filenames	mqx	Word VBA	4	11-13-2013 11:22 AM
Number position for numbered list of images	ofey	Word	3	09-29-2013 02:51 AM
Replacing text string within document, it's not retaining formatting	livemusic	Word	4	02-25-2013 12:33 AM
Flowing Numbered Lists Around Images	Paul_A_Parks	Drawing and Graphics	5	03-09-2011 10:22 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 06:26 PM.