word vba InsertRowsBelow的问题

[gwolf]

For Each atable In ActiveDocument.Tables
c = atable.Rows.Count
atable.Cell(c - 2, 1).Select
If Selection.Shading.BackgroundPatternColor <> wdColorGray15 Then
atable.Cell(c, 1).Select
Selection.InsertRowsBelow 1'加上这句以后死循环了
End If
Next atable
似乎InsertRowsBelow把for each中的计数归0了，总是循环本表，不知怎么回事，怎么解决？？

[宋翔]

试试这个：

Sub test()
    Dim i As Integer
    Dim iTblCount As Integer
    Dim iRowCount As Integer
    Dim oDoc As Document
    Dim oTbl As Table
    Set oDoc = ActiveDocument
    iTblCount = oDoc.Tables.Count
    For i = 1 To iTblCount
        Set oTbl = oDoc.Tables(i)
        iRowCount = oTbl.Rows.Count
        oTbl.Cell(iRowCount - 2, 1).Select
        If Selection.Shading.BackgroundPatternColor <> wdColorGray15 Then
            oTbl.Cell(iRowCount, 1).Select
            Selection.InsertRowsBelow 1
        End If
    Next i
End Sub

[宋翔]

另外，在VBA中，可以不用先选择再设置，例如oTbl.Cell(iRowCount - 2, 1).Select这句可直接改为：
oTbl.Cell(iRowCount - 2, 1).Range.Shading.BackgroundPatternColor <> wdColorGray15 Then

[gwolf]

多谢pfsx79，代码可行。
不过我更想知道为什么Selection.InsertRowsBelow 1'加上这句以后死循环了