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

 

Question Info


Last updated December 4, 2019 Views 2,541 Applies to:
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.