如何在word表格里实现自动编号

413191246se

无需域，只须录制宏即可！后期可以编辑一下（但该宏只对规范未合并未拆分的表格有效）

Sub 表格自动编号()
    On Error Resume Next
    If Selection.Information(wdWithInTable) = False Then
        MsgBox "请将光标放在要自动编号的表格中！", vbOKOnly + vbExclamation, "表格自动编号"
        End
    End If
    Selection.Tables(1).Columns(1).Select
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
        wdNumberGallery).ListTemplates(5), ContinuePreviousList:=False, ApplyTo:= _
        wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior
    Selection.ParagraphFormat.TabStops.ClearAll
    ActiveDocument.DefaultTabStop = CentimetersToPoints(0)
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
End Sub

枫桥夜泊lwb

谢谢楼主分享

lihaocgb

太棒了这是我一直想学的

tracy1984

好方法，学习了，感谢分享{:soso_e163:}

dyt20

很实用也常用到，谢谢分享好方法。

清风007

不错，学习了，多谢楼主

oylw

谢谢分享，学习了！

xiaoji_1314

17楼的会用，楼主的没用过。

wjwf99

谢谢楼主，非常好，正在学。