如何在word中对符合条件的段落进行自动编号

15116475571

求大佬们帮忙解决困惑已久的问题，谢谢！

用VBA实现对所有满足以[0-9]@[.．.]开头的段落设置如下格式：①对段落前的数字进行自动编号，数字编号字体为New Times Roman，字号为五号，数字编号后面的点号可以是“.．.”中的任意一种，但统一就行；②以[0-9]@[.．.]开头的段落的文本之前和之后缩进都为0字符，悬挂缩进2字符
！！！注意对于表格中带小数点的数字和段落中非开头位置的数字不要进行编号

再次感谢！！！

过客fppt

我的插件也许能解决你的问题

15116475571

过客fppt 发表于 2024-9-5 21:55
我的插件也许能解决你的问题

谢谢您的回复，但是我只想要这一个功能，因为我要和其他功能放在一起，组成适合自己的功能选项卡，请问安装您的插件可以把我想要的功能提取出来放到新的选项卡或新建组里吗？

过客fppt

15116475571 发表于 2024-9-6 09:24
谢谢您的回复，但是我只想要这一个功能，因为我要和其他功能放在一起，组成适合自己的功能选项卡，请问安 ...

可以的

limonet

Sub limonet()
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Text = "[0-9]@[.．.](*）^13)"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
    End With
    Do While Selection.Find.Execute
        With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
            .NumberFormat = "%1."
            .NumberPosition = CentimetersToPoints(0)
        End With
        Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
            ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
            True, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
            wdWord10ListBehavior
        With Selection
            If .Find.Forward = True Then
                .Collapse Direction:=wdCollapseStart
            Else
                .Collapse Direction:=wdCollapseEnd
            End If
            .Find.Execute Replace:=wdReplaceOne
            If .Find.Forward = True Then
                .Collapse Direction:=wdCollapseEnd
            Else
                .Collapse Direction:=wdCollapseStart
            End If
        End With
    Loop
End Sub

limonet

关键字：selection.find.execute

15116475571

limonet 发表于 2024-9-7 00:29
关键字：selection.find.execute

您好，为什么我运行您的代码，没有达到想要的效果，运行后成这样

15116475571

limonet 发表于 2024-9-7 00:29
关键字：selection.find.execute

您好，为什么运行您的代码后，是这样的效果，和您演示的不一样

15116475571

过客fppt 发表于 2024-9-6 17:39
可以的

感谢您的回复，但是我是已经有编号，需要对编号进行规范化

limonet

word正常，没有WPS。或许你用其他老师的。