Word 2019中如何为每4行一组的段落仅给每组首行添加编号列表？

嘿，太懂你整理图片信息的这种麻烦了！10页文档手动给每组首行加编号绝对要疯，给你分享两个亲测在Word 2019里好用的方法，按需选就行：

方法一：用VBA宏批量处理（最精准高效） #

这个方法适合大篇幅文档，一键就能搞定，不用手动反复操作：

1. 按下Alt+F11打开Word的VBA编辑器。
2. 在左侧「项目」面板里右键点击你的文档，选择「插入」→「模块」。
3. 在弹出的代码编辑窗口里粘贴这段代码：

Sub AddNumberingToEvery4thGroup()
    Dim targetPara As Paragraph
    Dim paraCount As Integer
    paraCount = 1
    
    ' 遍历文档里的每一段
    For Each targetPara In ActiveDocument.Paragraphs
        ' 跳过空段落（如果你的文档里有空行的话）
        If Trim(targetPara.Range.Text) <> vbCr Then
            ' 只给每组的第1段（1、5、9...）加编号
            If paraCount Mod 4 = 1 Then
                targetPara.Range.ListFormat.ApplyNumberDefault
            Else
                ' 其他段落确保无编号，避免格式混乱
                targetPara.Range.ListFormat.RemoveNumbers
            End If
            paraCount = paraCount + 1
        End If
    Next targetPara
End Sub

4. 按下F5运行宏，或者回到Word界面，点击「开发工具」→「宏」，选中这个宏执行就行。
   小提示：如果你的编号样式不是默认的，可以把ApplyNumberDefault改成你想用的样式，比如ApplyListTemplate ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)，对应第二种编号样式。

方法二：高级查找替换（不用写代码） #

如果你不想碰宏，可以试试Word的通配符查找替换，步骤稍微繁琐但也能搞定：

1. 按下Ctrl+H打开「查找和替换」对话框，点击「更多」展开高级选项。
2. 勾选「使用通配符」，这是启用正则匹配的关键。
3. 在「查找内容」框里输入：([!^13]{1,}^13)([!^13]{1,}^13)([!^13]{1,}^13)([!^13]{1,}^13)
   • 简单解释：[!^13]{1,}匹配任意非回车的内容（也就是一行文本），^13是Word的段落标记（回车），四个组合就是4行一组的内容。
4. 点击「格式」→「样式」，选择你想用的编号列表样式（比如「编号」），然后点击「全部替换」。
5. 这时候所有段落都会被套进编号列表，你需要手动选中每组的第2-4行，右键点击编号→「取消编号」。不过10页的话手动选有点麻烦，所以还是更推荐宏的方法~

试试上面的方法，应该能完美解决你的需求！

备注：内容来源于stack exchange，提问作者user374324