How to convert all embedded objects in word to images?


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?




Question Info

Last updated December 4, 2019 Views 2,541 Applies to:
This could be a start.


Sub ConvertOLEObjectsToPicture()
  Dim Item As InlineShape
  For Each Item In ActiveDocument.InlineShapes
    Select Case Item.Type
      Case wdInlineShapeEmbeddedOLEObject, wdInlineShapeLinkedOLEObject
        With Selection
          .PasteSpecial DataType:=wdPasteMetafilePicture
          '.ShapeRange.WrapFormat.Type = wdWrapTopBottom
        End With
    End Select
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.