如何将法律条文中的“第一条”、“第二条”批量加粗？

jiminyanyan · 发表于 2016-7-16 09:09

本帖最后由 jiminyanyan 于 2016-7-16 10:10 编辑

请教一个问题，如何将法律条文中的“第一条”、“第二条”批量加粗？如果是一段文中出现的第几条，则不加粗。

小花鹿 · 发表于 2016-7-16 09:30

这个用WORD中的查找替换就行了

jiminyanyan · 发表于 2016-7-16 09:36

小花鹿发表于 2016-7-16 09:30
这个用WORD中的查找替换就行了

第一条 aaaaaa,本法第二条bbbbb,
怎么区分是段首还是段中，第一条几个字要加粗，后面本法第二条的“第二条”不要加粗

小花鹿 · 发表于 2016-7-16 09:45

jiminyanyan 发表于 2016-7-16 09:36
第一条 aaaaaa,本法第二条bbbbb,
怎么区分是段首还是段中，第一条几个字要加粗，后面本法第二条的“ ...

查找框里(^13第[!条]{1,5}条)

小花鹿 · 发表于 2016-7-16 09:48

小花鹿发表于 2016-7-16 09:45
查找框里(^13第[!条]{1,5}条)

前面加上^13，就表示查找段首的第几条

jiminyanyan · 发表于 2016-7-16 09:56

小花鹿发表于 2016-7-16 09:48
前面加上^13，就表示查找段首的第几条

试了下，怎么一个都找不到

duquancai · 发表于 2016-7-16 09:57

本帖最后由 duquancai 于 2016-7-16 10:17 编辑

勾选使用通配符查找框中输入“^13第[!条]@条”（不包括引号）  替换框中“加粗”（替换中框中：ctrl+b）格式。或者在查找框输入“^13第[!条]@条”（不包括引号）再点击开始菜单“加粗”。WordVBA请测试：
Sub Word运用格式()
Dim i As Paragraph, mt, oRang As Range, n%, m%
With CreateObject("vbscript.regexp")
      .Pattern = "^第[^条]+条"
      .Global = True: .IgnoreCase = False: .MultiLine = True
      For Each i In ActiveDocument.Paragraphs
         For Each mt In .Execute(i.Range.Text)
            m = mt.FirstIndex: n = mt.Length
            Set oRang = ActiveDocument.Range _
                        (i.Range.Start + m, i.Range.Start + m + n)
            oRang.Bold = True
         Next
      Next
End With
End Sub

jiminyanyan · 发表于 2016-7-16 10:10

己解决，谢谢两位。。。

duquancai · 发表于 2016-7-16 10:15

jiminyanyan 发表于 2016-7-16 10:10
己解决，谢谢两位。。。

可以使用正则表达式关联range

jiminyanyan · 发表于 2016-7-16 10:23

duquancai 发表于 2016-7-16 10:15
可以使用正则表达式关联range

太强大了。。。

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

[已解决] 如何将法律条文中的“第一条”、“第二条”批量加粗？

评分

评分

评分