将Excel工作表复制到Word

我需要将表格“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中，但不会复制列布局。其他复制所有内容的解决方案也被接受。我只需要确保每个列中的所有数据都被复制

迈克的回答经过编辑：

---

在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

---

祝你好运-MikeD

为什么要用

双引号“

来表示你的评论？VBA中正确的语法是使用单引号，

，如下所示。

我知道，但在Stackoverflow中它会弄乱颜色？我将我的问题编辑为双单引号，似乎也会这样做：）编辑：明白了，检查我的初始问题。

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