求助大神！用VBA代码规范法律条文格式

lhteee

想将条文中段首的“第*条”加粗并在其后插入一个空格，将“第*章”加粗并居中。下面是录制的代码，将段中的“第几条”也加粗了，不是想要的效果。


Sub 第几条加粗()
          Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Bold = True
    With Selection.Find
        .Text = "第*条"
        .Replacement.Text = "^& "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

求助大神！
代码运行前后的效果.rar (36.63 KB, 下载次数: 5)

2024-2-5 14:29 上传

点击文件名下载附件

过客fppt

改为这个试一下
.Text = "^p第*条"

过客fppt

过客fppt 发表于 2024-2-5 18:12
改为这个试一下
.Text = "^p第*条"

如果不是在WPS里面的话，那个p改成11或者13，我不太记得是哪个是word中的段落标记了

batmanbbs

413191246se

* 楼主，你只要下载试用我的《Word VBA 公文自动排版（2023元旦版）》就可以了！
* 里面有《条文排版》宏，能满足你的要求。
* https://club.excelhome.net/thread-1649038-1-1.html

lhteee

batmanbbs 发表于 2024-2-5 20:09

完美，谢谢🙏

lhteee

过客fppt 发表于 2024-2-5 19:07
如果不是在WPS里面的话，那个p改成11或者13，我不太记得是哪个是word中的段落标记了

感谢！🙏

lhteee

413191246se 发表于 2024-2-5 20:17
* 楼主，你只要下载试用我的《Word VBA 公文自动排版（2023元旦版）》就可以了！
* 里面有《条文排版》宏 ...

谢谢，我是菜鸟一个，看不懂