关于制度自动编号问题（第一条、第二条）

^天堂里的傻孩子

^天堂里的傻孩子 发表于 2020-3-4 10:10
还有一个问题，查找的不是  第X条，X是一个代表，可以是一二三十，一百一十一，等等。

自己录制了一个喊通配符替换的宏，看了代码，就是   ^13第*条   就可以了。

^天堂里的傻孩子

根据各位指点后形成的代码（虽然有些还是不太懂），需要注意，用的是查找  回车第*条，所以如果第一条前面没有回车，需要手动回车一个（一般制度都会有）。

Sub d2()
    iflag = 0
    With ActiveDocument.Content.Find
        .MatchWildcards = True
        .Text = "^13第*条"
        Do While .Execute
            Set oRng = .Parent
            oRng.Start = oRng.Start + 2
            oRng.End = oRng.End - 1
            iflag = iflag + 1
            oRng.Fields.Add Range:=oRng, Text:="= " & iflag & " \* CHINESENUM3"
            .Parent.Start = .Parent.End
        Loop
    End With
End Sub

413191246se

***楼主，请你下载试用我的《Word2003 & 2007 VBA 通用模板宏(2020元旦版) 2019-10-17》，其中的《第一章》宏我觉得能满足你的要求，但前提是，先按 F8 进行排版。
链接：http://club.excelhome.net/thread-1503844-1-1.html

^天堂里的傻孩子

413191246se 发表于 2020-3-5 23:11
***楼主，请你下载试用我的《Word2003 & 2007 VBA 通用模板宏(2020元旦版) 2019-10-17》，其中的《第一章》 ...

谢谢~
我在现在的normal模板里面设置了公司公文常用格式快速设置的宏。

三羧酸

不错，留下各痕迹，后面来