Editing an embedded OLE object

DugganSC · #2 08-29-2011, 01:40 PM

Ah, figured it out. The object was embedded as a Shape. I discovered this by first realizing that there was a Context Menu item to open the embedded document whereupon I recorded a macro to access it. For the sake of reference, the macro code I got for finding it, opening it, finding a piece of text, copying what followed it, closing the document, and pasting said text into the header is the following:

Code:

If ActiveDocument.Shapes.Count > 0 Then
        ActiveDocument.Shapes(1).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        
        With Selection.ParagraphFormat
            .LeftIndent = InchesToPoints(0#)
            .FirstLineIndent = InchesToPoints(0#)
        End With
        
        Selection.ShapeRange(1).OLEFormat.DoVerb VerbIndex:=1
    
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = "Document ID"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
        Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Copy
        Selection.EscapeKey
        ActiveDocument.Close
        WordBasic.ViewFooterOnly
        Selection.TypeText Text:="Document "
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Else
        MsgBox ("Failed to find cover page")
    End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Embedded File	Atlas	Word	1	06-20-2011 04:37 PM
Embedded links	spheon	Word	1	06-07-2011 04:11 PM
Embedded in invitation?	admin99	Outlook	0	08-28-2010 05:34 PM
Problem: object library invalid or contains references to object definitions	aligahk06	Office	0	08-19-2010 12:29 PM
Could not load this object as this object is not present in your computer	k.gaurav	Office	0	08-17-2009 09:57 PM