Sub ExcelToWord()
Dim WordObject As Object '聲明壹個對象變量，這裏即將聲明為Word對象
On Error Resume Next
Set WordObject = CreateObject("Word.Application") '用set來創建Word對象，這裏是運行Word程序，但未新建文檔
WordObject.Visible = 0 '後臺運行Word對象，只在任務管理器中存在WinWord.exe進程，但在任務欄上看不到word；如果為1或者True則可以看到word運行界面
WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建壹word文檔
'以下為獲取Excel表格中的內容，準備把數據傳送給Word,可以根據自己的實際需要定制代碼，這裏只是示例代碼
Excel.Application.Sheets(1).Activate '切換當前電子表格的表1為當前激活表
Excel.Application.Sheets(1).UsedRange.Select '選中當前激活表的所有數據
Selection.Copy '將選中的區域進行復制
WordObject.Application.Activate '將後臺運行的Word激活為當前窗口
WordObject.ActiveWindow.Selection.Paste '將剛才從Excel中復制進剪貼板中的內容粘貼進word中來
WordObject.Saved = True '將保存文檔的Saved屬性設置為True，這樣後臺運行的Word在保存文檔時就不會彈出是否保存的對話框了，達到悄無聲息的效果
WordObject.ActiveDocument.SaveAs "D:\temp\導出數據.doc" '調用saveas命令保存文檔，根據實際，指定文檔的保存路徑和名稱
WordObject.Application.Quit '退出並關閉程序文檔
Set WordObject = Nothing '釋放對象
End Sub