Private Sub Export()
Dim sh As Shape
Dim objWord As Object 'Word.Document
Dim objOLE As OLEObject
    Set sh = Sheet1.shapes("Object 1")
    sh.OLEFormat.Activate
    Set objOLE = sh.OLEFormat.Object
    Set objWord = objOLE.Object
    objWord.SaveAs2 FileName:=ActiveWorkbook.Path & "\MyTemplate.docx", FileFormat:=wdFormatDocumentDefault
End Sub

Sub shapes()
Dim sh As Shape
For Each sh In ActiveSheet.shapes
    Set sh = Sheet1.shapes(sh.Name)
    sh.OLEFormat.Activate
    Set objOLE = sh.OLEFormat.Object
    Set objWord = objOLE.Object
    objWord.SaveAs2 FileName:=ActiveWorkbook.Path & "\MyTemplate.docx", FileFormat:=wdFormatDocumentDefault
Next
End Sub