如何指定Excel图表与表格粘贴至Word的位置并设置表格自动适配

原代码的核心问题是依赖Selection对象粘贴，导致内容都堆在文档顶部，同时没有处理表格格式适配和图表的分页需求。以下是调整后的代码，实现表格放在第一段之后、图表单独一页、表格自动适配Word格式的需求：

Sub ExportChartandTableToWordTemplate()
    ' 声明对象变量
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim excChart As ChartObject
    Dim excTable As ListObject
    
    ' 启动Word并打开模板
    Set wrdApp = New Word.Application
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(Filename:="C:\Users\michael.okeefe\Documents\PurchaseUpdateReportExampleTest.docx")
    
    ' --- 1. 粘贴表格到第一段之后 ---
    Set excTable = ActiveSheet.ListObjects(1)
    excTable.Range.Copy
    
    ' 定位到第一段末尾（第二段开头）
    wrdDoc.Paragraphs(2).Range.Select
    With wrdApp.Selection
        ' 粘贴时启用Word格式适配，自动套用文档样式
        .PasteExcelTable LinkedToExcel:=False, WordFormatting:=True, RTF:=False
        ' 让表格自动适应Word窗口宽度
        .Tables(1).AutoFitBehavior wdAutoFitWindow
    End With
    
    ' --- 2. 插入分页符，准备放置图表 ---
    wrdApp.Selection.EndKey Unit:=wdStory ' 光标移到文档末尾
    wrdApp.Selection.InsertBreak Type:=wdPageBreak ' 插入分页符
    
    ' --- 3. 粘贴图表到新页面 ---
    Set excChart = ActiveSheet.ChartObjects(1)
    excChart.Chart.ChartArea.Copy
    
    wrdApp.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject
    
    ' 释放对象，避免内存占用
    Set excChart = Nothing
    Set excTable = Nothing
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub

关键改动说明： #

• 精准定位粘贴位置：通过wrdDoc.Paragraphs(2).Range.Select直接定位到第一段之后，替代原代码默认的光标位置
• 表格格式适配：将WordFormatting设为True，让表格自动套用Word文档的样式；新增.Tables(1).AutoFitBehavior wdAutoFitWindow让表格宽度适配页面
• 图表单独分页：在表格粘贴完成后，插入分页符wdPageBreak，确保图表出现在新页面
• 对象规范管理：使用早期绑定（需先引用Word对象库），代码更稳定；最后释放所有对象避免内存泄漏

注意事项： #

• 需要先在VBA编辑器中引用Microsoft Word xx.x Object Library（工具→引用）
• 如果模板第一段是标题，Paragraphs(2)就是正文第一段位置，可根据实际模板结构调整段落索引

内容的提问来源于stack exchange，提问作者Michael