清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

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