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