Word VBA在每页上创建图表

Sub CreateChartOnEachPage()
    Dim doc As Document
    Dim rng As Range
    Dim i As Integer
    
    ' 设置文档对象
    Set doc = ActiveDocument
    
    ' 遍历文档的每一页
    For i = 1 To doc.Sections.Count
        ' 定义插入图表的范围
        Set rng = doc.Sections(i).Range
        
        ' 移动到页尾，并插入一个段落
        rng.Collapse Direction:=wdCollapseEnd
        rng.InsertParagraphAfter
        
        ' 将光标移动到新插入的段落
        rng.Collapse Direction:=wdCollapseEnd
        
        ' 在指定范围插入图表
        doc.InlineShapes.AddChart2 ChartType:=xlColumnClustered, Range:=rng
    Next i
End Sub