如何将Excel中的数据复制到word并保留其格式

Question

我一直在尝试将文本从excel复制到word，并在文本上保留粗体格式，但不保留单元格。当我尝试手动复制并粘贴单元格时，文本被复制但不是单元格本身。当我尝试使用vb重复此操作时（如下所示），单元格也会复制到

上

With wrdDoc

    .Content.Font.Name = "Times New Roman"
    .Content.Font.Size = 11
    .Content.InsertParagraphAfter
    .Content.InsertParagraphAfter
    With Worksheets("Sheet1")
        Cells(1, 1).Select
        Cells(1, 1).Copy
    End With
    .Content.InsertAfter "AddTableHere"
    .Content.Find.Execute FindText:="AddTableHere", ReplaceWith:="^c"


End With

有没有人建议如何做到这一点？

由于

Answer 1

Word中的Selection对象有一个PasteExcelTable方法可能适合该帐单 - 有关详细信息，请参阅MSDN