将图表和表格从 excel 粘贴到现有 word 文档中，粘贴到文档的特定部分-解网

问：

我正在使用下面的VBA代码将表格和图表从excel电子表格复制并粘贴到模板word文档中。

当我运行下面的宏时，图表和表格将粘贴在文档的顶部。有谁知道选择图表和表格的粘贴位置的方法？

此外，如果有一种方法可以格式化表格，使其自动适合文档，那就太好了。

Sub ExportChartandTableToExistingTemplatePara()

'Declare Word Object Variables
Dim WrdApp As Word.Application
Dim WrdDoc As Word.Document
Dim WrdTbl As Word.Table
Dim wordTable As Object

'Declare Excel Object Variables
Dim Chrt As ChartObject
Dim ExcListObj As ListObject


'Open Template

Dim oAPP As Object

Set oAPP = CreateObject(Class:="Word.Application")

oAPP.Visible = True

oAPP.Documents.Open Filename:="C:\Users\michael.okeefe\Documents\PurchaseUpdateReportExampleTest.docx"


'Create a Reference to the chart I want to Export
Set Chrt = ActiveSheet.ChartObjects(1)
Chrt.Chart.ChartArea.Copy

'Paste into Word Document
With oAPP.Selection

.PasteSpecial Link:=True, DataType:=wdPasteOLEObject
End With

'Create a Reference to List Object to Copy
Set ExcListObj = ActiveSheet.ListObjects(1)
ExcListObj.Range.Copy


'Paste into Word Document
With oAPP.Selection
    .PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False



End With


End Sub

我希望表格显示在第一段之后，图表显示在后面的页面上。

Excel VBA MS-Word 复制粘贴

Sub ExportChartandTableToExistingTemplatePara()

    'Declare Word Object Variables
    Dim WrdApp As Word.Application
    Dim WrdDoc As Word.Document
    Dim WrdTbl As Word.Table

    'Declare Excel Object Variables
    Dim Chrt As ChartObject
    Dim ExcListObj As ListObject

    'Open Template

    Set WrdApp = New Word.Application

    WrdApp.Visible = True

    
    Set WrdDoc = WrdApp.Documents.Open(Filename:="C:\Users\michael.okeefe\Documents\PurchaseUpdateReportExampleTest.docx")

    'Create a Reference to the chart I want to Export
    Set Chrt = ActiveSheet.ChartObjects(1)
    Chrt.Chart.ChartArea.Copy

    'Paste into Word Document
    'you need to identify exactly where this needs to be pasted

    'Create a Reference to List Object to Copy
    Set ExcListObj = ActiveSheet.ListObjects(1)
    ExcListObj.Range.Copy

    'Paste into Word Document
    WrdDoc.Paragraphs(2).Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False

End Sub

将图表和表格从 excel 粘贴到现有 word 文档中，粘贴到文档的特定部分

Paste Chart and Table from excel to existing word document into a specific part of the document

评论

评论