Pages

Aug 4, 2012

Examining embedded objects in Microsoft Word

Recently I described a method for translating embedded objects in Microsoft Office documents. The final step in that method requires these objects to be refreshed by opening them manually or using a corresponding macro.

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.
Sub openEmbeddedObjects()
   Dim longShapeCount As Long
   On Error Resume Next
   Application.ScreenUpdating = False
   longShapeCount = ActiveDocument.InlineShapes.Count
   If longShapeCount > 0 Then
      For i = 1 To longShapeCount
        ActiveDocument.InlineShapes(i).OLEFormat.Edit
      Next
   End If
   Application.ScreenUpdating = True
End Sub



8 comments:

  1. Hi Kevin,

    How would you adapt this for PPT files?

    Paul

    ReplyDelete
    Replies
    1. By adapting to the PPTX object model if this doesn't fit.

      Delete
    2. Thanks for the quick reply. That seems to be about where I get out of my depth.

      I just upgraded to MemoQ 2014 to translate the embedded text, but now when I try to open them to refresh them in the exported PPT, all of the text disappears from the slide, although it is translated in the embedded Excel. Has this ever happened to you?

      Paul

      Delete
    3. That's because of the refresh issue addressed here. DVX ships with a macro to do this; I mentioned a few times to Kilgray's developers that they woulds face this but I think they got busy and forgot. Send a bitch note to Support. Meanwhile, manual opening of the object in the translated PPTX should fix things.

      Delete
  2. Cheers Kevin,

    I submitted a support ticket and just waiting to hear back.

    When I open them manually, all of the text disappears... I just compared it to the source file and the cells are white rather than the original shade of blue/red. I hope I'm not missing something obvious.

    ReplyDelete
    Replies
    1. Hm. Sounds like I need to make more test files. I just planned a new tutorial last night with a similar case, so I might have to modify my plans.

      Delete
    2. In case it's useful: I can copy the contents of the exported embedded Excel file into the source document embedded Excel file and it updates the graph as it should. Something seems to be lost in the conversion.

      Delete
    3. For what it's worth, I can copy the contents of the exported embedded file into the embedded file in the source ppt, and it shows up as a graph perfectly. It seems like when exporting the Excel file, the graph formatting is lost. I'm not a competent enough spreadsheet user to fix this so had to copy & paste manually, but could be worth looking into.

      Delete

Notice to spammers: your locations are being traced and fed to the recreational target list for my new line of chemical weapon drones :-)