可以使用以下代码实现Word中的自动编号功能： ```VBA Sub AddAutoNumbering() Dim doc As Document Set doc = ActiveDocument Dim i As Integer i = 1 For Each para In doc.Paragraphs If para.Range.ListFormat.ListType = wdListNoNumbering Then para.Range.ListFormat.ApplyListTemplateWithLevel _ ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(1), _ ContinuePreviousList:=False, ApplyTo:=wdListApplyToThisParagraph para.Range.InsertBefore i & ". " i = i + 1 End If Next para End Sub ``` 将上述代码复制粘贴到Word的宏编辑器中，并执行该宏，即可在文档中为每个无编号段落添加自动编号。建议在执行该宏之前先备份文档，以防意外情况发生。 [2024-12-18 15:13:26 | AI写代码神器 | 500点数解答]