Sub save_ole_file()
Dim wordObj As OLEObject
Set wordObj = Worksheets("Sheet1").OLEObjects(1)

wordObj.Activate
With wordObj.Object.Application.WordBasic
.FileSaveas "c:\mytempx"
End With
End Sub