VBA 编辑word文档中的多个表格,填充内容

序言

一份word表格，如何快速更改某单元格的内容，比如说序号，或者是填充自己所需要的列表之类的文字，查阅得知
VBA中的ActiveDocuments.Tables(index)属性，或者使用Python-docx库可以做到。。这篇博客主要记录使用VBA编辑word表格
在平时的工作的，不建议做没必要的重复性劳动。一是提高工作效率，二是督促自己学习

正文

直接步入正题，放出VBA代码：

i = 2  #2是指表格的数量
m = 2
h = 2
#m,h是指行、列
#循环读取表格中的单元格，并删除内容
for j = 1 To i
ActiveDocument.Tables(j).Cell(m, h).Range.Delete
Next
#循环读取表格中的单元格，并填充序号，比如第一个表格（2，2）填充1，第二个表格（2，2）填充2，依次类推
For k = 1 To i
ActiveDocument.Tables(k).Cell(3, 1).Range.InsertAfter "" & k
Next

这套代码只使用于没有干扰性的表格，啥意思呢，就是一个word文档中只有你想更改的表格，没有多余的表格。。单元格索引是从第一个表格开始，一直循环到最后一个表格，，i的数量就是表格的数量

代码经过在office上的测试，完美运行。