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

lhteee · 发表于 2024-2-5 14:30

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

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)

过客fppt · 发表于 2024-2-5 18:12

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

过客fppt · 发表于 2024-2-5 19:07

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

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

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

本帖最后由 batmanbbs 于 2024-2-5 22:12 编辑

413191246se · 发表于 2024-2-5 20:17

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

lhteee · 发表于 2024-2-6 10:28

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

完美，谢谢🙏

lhteee · 发表于 2024-2-6 10:31

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

感谢！🙏

lhteee · 发表于 2024-2-6 10:33

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

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

		自动登录	找回密码
密码			免费注册

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