office宏

最近在汇总别人写的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宏真的是个好东西，不过这么强大的功能也确实是带来了一些安全问题，以后有机会再好好研究一下宏病毒都是怎么弄的。