How to convert all embedded objects in word to images?

Hello

I have a big word doc that I would like to import into a tool that doesn't accept embedded objects (e.g. visio drawings, excel sheets). Is there an easy way to convert all objects to basic images (png, jpg)?

I know that I can unlink embedded objects by CTRL + SHIFT + F9 combination. The problem is that images I get are not web compatible (gif, png, bmp, jpg format). In fact making copy/paste to and from any graphic editor solves the problem but it's not the solution for the document containing almost 600 objects.

I suppose some macro would do the thing, unfortunately I don't have much experience here. Could you please suggest something?

Thanks

Daniel

This thread is locked. You can follow the question or vote as helpful, but you cannot reply to this thread.

Question Info

Last updated December 4, 2019 Views 2,541 Applies to:

Replies (1) 

Andreas Killer

This could be a start.

Andreas.

Sub ConvertOLEObjectsToPicture()
Dim Item As InlineShape
For Each Item In ActiveDocument.InlineShapes
    Select Case Item.Type
      Case wdInlineShapeEmbeddedOLEObject, wdInlineShapeLinkedOLEObject
        Item.Select
        With Selection
          .CopyAsPicture
          .Delete
          .PasteSpecial DataType:=wdPasteMetafilePicture
          '.ShapeRange.WrapFormat.Type = wdWrapTopBottom
        End With
    End Select
Next
End Sub

2 people were helped by this reply

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.