Try this:

Sub GetEmbeddedWordObject()
    Dim lReply As Long
    Dim objOLE As OLEObject
    On Error Resume Next
    Set objOLE = ThisWorkbook.Worksheets("Sheet1").OLEObjects(1)
    If Err.Number <> 0 Then
        ' problem with OLE Object
        Exit Sub
    End If
    lReply = MsgBox("Do you want to Open in Word (Yes), or Edit in Place (No)?", vbQuestion + vbYesNoCancel)
    Select Case lReply 
        Case vbYes
            ' To open in a Word instance
            ' like Right Click > Document Object > Open
            objOLE.Verb xlVerbOpen
        Case vbNo
            ' To activate in Excel as Word object
            ' like Right Click > Document Object > Edit
            objOLE.Verb xlVerbPrimary
    End Select
End Sub