手工多级编号变自动多级编号(附件）

晨晓之黎

我用了查找替换还是不行，有没有办法批量为自动多级编号？

罗达

我这还真有一个，根据需要自行修改。来自网络，亲测可行。Sub 设置每一级标题格式()
'注意：标题后面可能不换行直接跟着内容，所以对第一句设置，而不是整段[0-9]
'注意：如果设置为模板，将内容复制到其他word，会变成目标word所设置wdStyleNormal式样，和源不同[0-9]
'规则：如果只有一句话，才设置大纲级别，否则不设置[0-9]
Dim ib As Paragraph
For Each ib In ActiveDocument.Paragraphs
    With ib
        If .Range Like "  条件 " Then        ' '类似 1.或11. 一级大纲，标题1                                                
            .Range.Style = wdStyleHeading1
            .OutlineLevel = wdOutlineLevel1
        ElseIf .Range Like "  条件   " Then
                                                                        '类似 1.1. 或1.11 或11.1 或11.11，二级大纲，标题2
            .Range.Style = wdStyleHeading2
            .OutlineLevel = wdOutlineLevel2
        ElseIf .Range Like "   条件 " Then
                                                                        '类似 1.1.1. 或1.1.11. 等，三级大纲，标题3
            .Range.Style = wdStyleHeading3
            .OutlineLevel = wdOutlineLevel3
        ElseIf .Range Like "  条件 " Then
                                                                        '类似 1.1.1.1. 或1.1.1.11. 等，四级大纲，标题4
            .Range.Style = wdStyleHeading4
            .OutlineLevel = wdOutlineLevel4
        End If
    End With
Next
End Sub

晨晓之黎

罗达 发表于 2020-9-20 22:14
我这还真有一个，根据需要自行修改。来自网络，亲测可行。Sub 设置每一级标题格式()
'注意：标题后面可能 ...

谢谢！