大佬能帮我加个注释吗？我想在word模版里插入个新表就不起作用，不会数格子。怎么修改

killerzeno

    On Error GoTo 200
    With ActiveDocument
        For i = 1 To .Tables.Count
            If i < 15 Or i = 18 Or i = 19 Or i = 20 Or i = 23 Or i = 64 Or i = 68 Then GoTo con
'            .Tables(i).Select
            For Each icell In .Tables(i).Range.Cells
                stt = icell.Range
                stt = Replace(stt, Chr(13) & Chr(7), "")
                stt = Replace(stt, "　", " ")
                stt = Trim(stt)
                If IsNumeric(stt) Then
                    irow = icell.Range.Information(14)
                    icol = icell.Range.Information(17)
                    If i = 15 And (icol = 2 Or icol = 6) Then GoTo 100
                    If i = 16 And icol = 2 Then GoTo 100
                    If i = 17 And icol = 2 Then GoTo 100
                    If i = 22 And icol = 2 Then GoTo 100
                    If i = 59 And icol = 2 Then GoTo 100
                    If i = 26 And icol = 1 Then GoTo 100
                    If i = 27 And icol = 1 Then GoTo 100
                    If i = 29 And icol = 1 Then GoTo 100
                    If i = 31 And icol = 1 Then GoTo 100
                    If i = 67 And icol = 5 Then GoTo 100
                    icell.Range.Text = Format(Replace(icell.Range, Chr(13) & Chr(7), ""), "#,##0.00")
                    If 0 Then
200
                        Stop
                        Resume
                    End If
                End If
100
            Next
con:
        Next i
    End With
    Beep
    MsgBox "完毕"
End Sub

3190496160

只摆出一段代码，还是残缺不全的，没有需求说明，没有附件，是没有人帮得了你的，因为爱莫能助