The macro below is intended for inspecting all the embedded objects in a Microsoft Word document. When run, it opens each of these objects if possible, regardless of type, and leaves the corresponding editing window open. This allows last minute changes to be made conveniently before the objects are saved and refreshed in the document view. A similar approach can be used for objects embedded in Excel or PowerPoint, though the references are a little different.
This macro could also be used to test quickly whether a large document has embedded objects to be dealt with. Sometimes it's hard to recognize these. It does not, however, open bitmaps inserted as pictures.
Dim longShapeCount As Long
On Error Resume Next
Application.ScreenUpdating = False
longShapeCount = ActiveDocument.InlineShapes.Count
If longShapeCount > 0 Then
For i = 1 To longShapeCount
Application.ScreenUpdating = True