Вопрос про объект Excel Worksheet в документе Word - VB

<font color="blue">Public</font> <font color="blue">Sub</font> X()
    <font color="blue">Dim</font> objWb <font color="blue">As</font> <font color="blue">Object</font>
    <font color="blue">Dim</font> sh <font color="blue">As</font> Word.InlineShape
    
    <font color="blue">Set</font> sh = ThisDocument.InlineShapes(<font color="darkblue"><b>1</b></font>)
    sh.OLEFormat.Edit
    
    <font color="blue">Set</font> objWb = sh.OLEFormat.<font color="blue">Object</font>
    objWb.worksheets(<font color="darkblue"><b>1</b></font>).Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>) = <font color="teal">"Hi from VBA!"</font>
    
    <font color="00AA00">' Можно попробовать через SendKeys.</font>
    <font color="00AA00">'SendKeys <font color="teal">"{ESC}"</font>, True</font>
    
    <font color="00AA00">' Или можно воспользоваться таким трюком.</font>
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
    sh.OLEFormat.ActivateAs <font color="teal">"Excel.Sheet9999"</font>
    <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> <font color="darkblue"><b>0</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>