將Excel工作表復制到Word

Question

我需要將工作表'GreatIdea'導出到Word文檔。 'GreatIdea'分為幾頁，我的專欄基於這些頁面。

A - C包含目錄，D - F包含第1章，......

Sub test()

' Open LOL.docx'
Dim appWD As Word.Application
Set appWD = New Word.Application
Dim docWD As Word.Document
Set docWD = appWD.Documents.Open("C:\Users\TOM\Desktop\LOL.docx")
docWD.Activate
Sheets("Sheet1").Select

' Copy from GreatIdea to LOL.docx'

Range("A1:K40").Copy
appWD.Selection.PasteSpecial

appWD.ActiveDocument.SaveAs Filename:=ThisWorkbook.Path & "/" & "OEF_OFFERTE"
appWD.ActiveDocument.Close
appWD.Quit
Set appWD = Nothing
Set docWD = Nothing

End Sub

這會將所有內容復制到Word中，但不會復制列布局。 其他復制一切的解決方案也被接受。 我只需要確保每列的所有數據都被復制。

邁克的回答編輯：

 Range("A1:C40").Copy
 appWD.Selection.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=True

Answer 1

當你在WORD應用程序（AppWD）中時，有一個更好的功能：

expression.PasteExcelTable(LinkedToExcel, WordFormatting, RTF)

嘗試其中之一

AppWD.Selection.PasteExcelTable False, True, True   ' aequivalent to PasteSpecial As RTF
AppWD.Selection.PasteExcelTable False, False, True  ' keeps Excel formats
AppWD.Selection.PasteExcelTable False, False, False ' aequivalent to PasteSpecial As HTML

祝你好運 - 邁克