Edit Method Example

This example opens (for editing) the first embedded OLE object (defined as a shape) on the active document.

Set myS = ActiveDocument.Shapes
If myS.Count >= 1 Then
    If myS(1).Type = msoEmbeddedOLEObject Then
        myS(1).OLEFormat.Edit
    End If
End If

This example opens (for editing) the first linked OLE object (defined as an inline shape) in the active document.

Set myIS = ActiveDocument.InlineShapes
If myIS.Count >= 1 Then
    If myIS(1).Type = wdInlineShapeLinkedOLEObject Then
        myIS(1).OLEFormat.Edit
    End If
End If