最近在汇总别人写的word文档时,遇到一个问题, 一个文档中有n多格式相同的表格,里面的内容已经被别人填写好了.
表格的第行,第二列内容需要设置为表格的编号,因为这个文档是之前大家汇总起来的,所以这个编号顺序是乱的,而且有很多重复.
每个表格的格式和内容大致如下:
我要做的就是把文档中所有的表格,编号后面的数字重新梳理一下,确保这个数字是一次按顺序递增的。考虑了文本替换,表格公式,又搜了一堆方法,都没有比较好的方案。
最后只好求助于offie宏,因为之前没用过,所以也是临时简单看了一下。
大致的解决方案就是:
1. 先录制一个宏:宏的内容就是修改某一个表格中的内容,然后看一下操作单个表格的基本操作。
2. 之后再了解一下vba中的循环,变量,表格基本操作,网上一搜一大堆
3. 在把第一步中的宏嵌套在循环中,简单改一下整个逻辑, 问题就解决啦!
代码如下:
Sub 宏1()
'
' 宏1 宏
'
Dim t As Table
Dim i As Long
Dim count As Long
i = 1
count = 1
For Each t In ActiveDocument.Tables
If i > 2 Then
If count > 99 Then
With t.Cell(Row:=1, Column:=2).Range
.Delete
.InsertAfter Text:=count
End With
ElseIf count > 9 Then
With t.Cell(Row:=1, Column:=2).Range
.Delete
.InsertAfter Text:="0" & count
End With
Else
With t.Cell(Row:=1, Column:=2).Range
.Delete
.InsertAfter Text:="00" & count
End With
End If
count = count + 1
End If
i = i + 1
Next
End Sub
感觉office宏真的是个好东西,不过这么强大的功能也确实是带来了一些安全问题,以后有机会再好好研究一下宏病毒都是怎么弄的。