main
黄海 9 months ago
parent 1fbd4c89d8
commit 4b57e7fdac

@ -43,3 +43,19 @@ doc.Save()
doc.Close()
docApp.Quit()
'''
Type
1柱形图Column
2折线图Line
3饼图Pie
51堆叠柱形图Stacked Column
52堆叠线图Stacked Line
53堆叠区域图Stacked Area
55雷达图Radar
65树状图Treemap
73旭日图Sunburst
77水桶图Funnel
109散点图Scatter
183气泡图Bubble
'''

@ -8,29 +8,14 @@ docApp = win32com.client.Dispatch('Word.Application')
docApp.Visible = False
docApp.DisplayAlerts = 0
# doc = docApp.Documents.Open('c:/1.docx')
doc=docApp.Documents.Open('c:/昭通市人口变化及其对教育的影响20240416.docx')
doc = docApp.Documents.Open('c:/昭通市人口变化及其对教育的影响20240416.docx')
'''
Type
1柱形图Column
2折线图Line
3饼图Pie
51堆叠柱形图Stacked Column
52堆叠线图Stacked Line
53堆叠区域图Stacked Area
55雷达图Radar
65树状图Treemap
73旭日图Sunburst
77水桶图Funnel
109散点图Scatter
183气泡图Bubble
'''
# 遍历文档中的所有内嵌形状
idx = 1
for inline_shape in doc.InlineShapes:
if inline_shape.Type == win32com.client.constants.wdInlineShapeChart: # 检查是否为内嵌图表
shape = doc.InlineShapes(idx)
# 获取图表的标题
# 获取图表的标题,此项目中图表没有标题
# print(shape.Chart.ChartTitle.Text)
sheet = shape.Chart.ChartData.Workbook.Worksheets("Sheet1")
# 行数
@ -40,11 +25,12 @@ for inline_shape in doc.InlineShapes:
# 遍历获取表格中的数据
for i in range(1, row_size + 1):
for j in range(1, col_size + 1):
print(sheet.Cells(i, j).Value,end=" ")
print(sheet.Cells(i, j).Value, end=" ")
print("")
print("")
# 下一个图表的索引号
idx = idx + 1
# 这里可以对图表进行操作,比如获取图表的类型、数据等
# 关闭文档和Word应用
doc.Close()
docApp.Quit()

Loading…
Cancel
Save