给表格填充序号

朱付安

我需要给插入的表格填充上序号，例如1,2,3这个样子，问一下老师能用vba实现吗，谢谢

vbee

ActiveDocument.Tables表格填充上序号

朱付安

vbee 发表于 2024-4-10 14:32
ActiveDocument.Tables表格填充上序号

老师，您这个只能给第一个表格添加序号，我想要给选中的单元格添加序号，不一定是第一个，也不一定是横竖列

vbee

给选中的单元格添加序号

朱付安

vbee 发表于 2024-4-10 18:21
给选中的单元格添加序号

谢谢老师，可以了

朱付安

vbee 发表于 2024-4-10 18:21
给选中的单元格添加序号

老师，如果我上一个单元是编号1，下一个单元格就从2编号，如果上一个单元格是3，下一个就从4开始编号

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim m&, n&, strRngText, RngCel As Cell
   
    For Each RngCel In Selection.Cells
        strRngText = Left(RngCel.Range.Text, Len(RngCel.Range.Text) - 2)
        n = n + 1
        If n = 1 Then
            If strRngText = "" Then
                RngCel.Range.Text = 1
            Else
                m = m + strRngText
            End If
        Else
            If strRngText = "" Then
                m = m + 1
                RngCel.Range.Text = m
            Else
                m = strRngText
            End If
        End If
    Next

    Beep
End Sub

朱付安

gwjkkkkk 发表于 2024-4-10 20:47
Option Explicit
Sub TEST1()
    Dim m&, n&, strRngText, RngCel As Cell

老师谢谢，另外我想生成序号的单元格水平和垂直居中，如何修改代码

413191246se

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter