VBA：保存word文件到当前目录下
━━━━━━━━━━━━━━━━━━━━━━━━━

Sub demo()
    Dim wApp As Object
    Sheet2.OLEObjects("object 3").Activate
    Set wApp = GetObject(, "word.application")
    '运行代码将数据写入WORD
    wApp.activedocument.SaveAs ThisWorkbook.Path & "\test.doc"
    wApp.Quit
End Sub