表格序号列自动编号

xseyuan

Sub 宏1()
Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
    hang = tbl.Range.Rows.Count
      If tbl.Cell(1, 1).Range.Text = "序号" Then
       For i = 2 To hang
       tbl.Cell(i, 1).Range.Text = i - 1
       Next
      End If
     Next tbl
    Set tbl = Nothing
End Sub
不加判断可以运行，加了判断无法运行，问题出哪了？

守候_CJ

一、原因
Word表格每个单元格的字符以【Chr(13) & Chr(7)】这2个字符结束；
也可以这样说：每个单元格的最后一段以【Chr(13) & Chr(7)】这2个字符结束。
在此作个补充：其他地方的段落均以【Chr(13)】这个单字符结束，也就是通常理解的回车，其实确切说是段落标记。
二、VBA测试验证截图

三、代码修改

1. Sub 宏1()
   
2.     Dim tbl As Table
   
3.     For Each tbl In ActiveDocument.Tables
   
4.         hang = tbl.Range.Rows.Count
   
5.         If tbl.Cell(1, 1).Range.Text = "序号" & Chr(13) & Chr(7) Then
   
6.             For i = 2 To hang
   
7.                 tbl.Cell(i, 1).Range.Text = i - 1
   
8.             Next
   
9.         End If
   
10.     Next tbl
    
11.     Set tbl = Nothing
    
12. End Sub

复制代码

xseyuan

调试了个，有合并单元格也能排序号的
Sub 序号排序()
Dim tbl As Table
Dim objRange As Range
Dim objCell As Cell
     For Each tbl In ActiveDocument.Tables
       If tbl.Cell(1, 1).Range.Text = "序号" & vbCr & Chr(7) Then
          n = 0
          For Each objCell In tbl.Columns(1).Cells
          Set objRange = objCell.Range
             objRange.SetRange Start:=objRange.Start, End:=objRange.End - 1
             If n = 0 Then
             objRange.Text = "序号"
             Else
             objRange.Text = n
             End If
             n = n + 1
          Next objCell
        End If
      Next tbl
Set tbl = Nothing
End Sub

xseyuan

守候_CJ 发表于 2023-2-21 12:44
一、原因
Word表格每个单元格的字符以【Chr(13) & Chr(7)】这2个字符结束；
也可以这样说：每个单元 ...

多谢，根据这个我调试了个有合并单元也能正常运行的

守候_CJ

xseyuan 发表于 2023-2-24 16:09
多谢，根据这个我调试了个有合并单元也能正常运行的

mmwwdd

守候_CJ 发表于 2023-2-21 12:44
一、原因
Word表格每个单元格的字符以【Chr(13) & Chr(7)】这2个字符结束；
也可以这样说：每个单元 ...

厉害，这个问题解决的真好

守候_CJ

mmwwdd 发表于 2023-2-26 20:41
厉害，这个问题解决的真好

xseyuan

守候_CJ 发表于 2023-2-26 23:03

Sub 序号错误查找()
Dim tbl As Table
Dim objRange As Range
Dim objCell As Cell
     For Each tbl In ActiveDocument.Tables
       If tbl.Cell(1, 1).Range.Text = "序号" & vbCr & Chr(7) Then
          n = 0
          For Each objCell In tbl.Columns(1).Cells
          Set objRange = objCell.Range
          objRange.SetRange Start:=objRange.Start, End:=objRange.End - 1
             If n = 0 Then
               objRange.Text = "序号"
             Else
               If objRange.Text = n & vbCr & Chr(7) Then
               Else
               MsgBox objRange.Text
               End If
             End If
             n = n + 1
          Next objCell
        End If
      Next tbl
Set tbl = Nothing
End Sub
上面的排序的是给表格的序号列重新输入序号，如果序号列已经有序号，只是有个另序号错误，这个怎么查找？
上面的会把序号都显示一遍，不会只显示有错误 的序号

batmanbbs

学习了 ！！

守候_CJ

xseyuan 发表于 2023-2-27 09:15
Sub 序号错误查找()
Dim tbl As Table
Dim objRange As Range

因为序号从第二行开始，应该是n-1

1. Sub 序号错误查找()
   
2. Dim tbl As Table
   
3. Dim objRange As Range
   
4. Dim objCell As Cell
   
5.      For Each tbl In ActiveDocument.Tables
   
6.        If tbl.Cell(1, 1).Range.Text = "序号" & vbCr & Chr(7) Then
   
7.           n = 0
   
8.           For Each objCell In tbl.Columns(1).Cells
   
9.           Set objRange = objCell.Range
   
10.           objRange.SetRange Start:=objRange.Start, End:=objRange.End - 1
    
11.              If n = 0 Then
    
12.                objRange.Text = "序号"
    
13.              Else
    
14.                If objRange.Text = n-1 & vbCr & Chr(7) Then
    
15.                Else
    
16.                MsgBox objRange.Text
    
17.                End If
    
18.              End If
    
19.              n = n + 1
    
20.           Next objCell
    
21.         End If
    
22.       Next tbl
    
23. Set tbl = Nothing
    
24. End Sub

复制代码