word宏 批量删除含有关键字的表格列

工作中，由于每次修改word文档，都需要进行繁琐的修改，删除多余的列或者调节表格的宽度。

使用列word宏编程的方式对word文档进行对应的操作。

宏：

 1 Sub del_key()
 2     Dim str As String
 3     Dim table_count, i, j, table_lie As Integer
 4     str = "符合程度"
 5