скопировать лист Excel в Word

Question

Мне нужно экспортировать лист 'GreatIdea' в документ Word.«Великая Идея» разделена на страницы, и мои столбцы основаны на этих страницах.

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

Удачи - MikeD