word更改格式，未达理想效果。

weiyingde

要求：在word自带的查找替换下，匹配红字部分的表达式，并改变其颜色调字体等格式。

注意事项：
1.本试包括道德与法治试题和历史试题，满分80分，考试时同80分钟。
2.答卷前，考生务必将自己的名、准考证号填写在试题和答题卡上，并将准考证号条形码粘贴在答题卡上的指定位置。
3.1-11题为道德与法治选择题，14-21题为历史选择题，每小题选出答案后，用2B铅笔把答题卡上对应题目的答案标号涂黑，如果改动，用橡皮擦千净后，再涂其他答常标雪，答在试卷上无效。
4.非逃择题的作答:用0.5毫米黑色墨水签宇笔直接答在答题卡上对应的答题区域内。答在试题卷上无效。
5.考生必须保持答题卡的整洁、考试结束后，请将本试题卷和答题卡一开上交。
道德与法治试题
一、选择题:本题共11小題，每小题2分，共22分。在每小题给出的四个选项中，只有一项是符合题目要求的。

代码如下：
Sub 更改注意条款格式()
With ActiveDocument
     With .Content.Find
          .ClearFormatting
          With .Replacement
               .ClearFormatting
               .Font.ColorIndex = wdBlack
               .Font.Name = "华文楷体"
               .Font.Size = 9.5
               .Font.Bold = False
         End With
         .Execute "注意事项：(^13[1-9]@[\.、．]@[!^13]@*)^13[!^13\d\.、．]@", , , 1, , , , , , "^&", 2
     End With
End With
End Sub

问题：只能更改部分，并不能匹配全部条款。不知为何。

附件如下：

weiyingde

求助大侠，敬请援手，在线等候。先谢了。

zhanglei1371

替换前先确认下能否手动查找到：

手动都查不全，肯定代码也执行不了。
可以写成这样：“注意事项：*5.[!^13]@^13”

weiyingde

在线求大侠，有路过的大侠，请指教。谢谢。

sznie

\d     ?                              

weiyingde

sznie 发表于 2020-2-3 13:45
\d     ?

谢谢回复，这个不会匹配红色的文字吧。

weiyingde

zhanglei1371 发表于 2020-2-3 12:18
替换前先确认下能否手动查找到：

手动都查不全，肯定代码也执行不了。

谢谢张老师的回复。你的代码对本例有用，但如果不是是五条：或以下，或以上，这个代码就不能执行。
——缺乏通用性。有功夫烦请张先生再看看。先谢了。

weiyingde

用正则，自我解决了。
Sub 正则看看()
isr = ActiveDocument.Content
With CreateObject("Vbscript.RegExp")
     .Global = False
     .MultiLine = True
     .Pattern = "注意事项：\r(^\d[\.、．][^\r]*\r)*(?!^\d)"
     Set mh = .Execute(isr)
     For Each mt In mh
         MsgBox mt
     Next
End With
End Sub

weiyingde

自我搞定，匹配文本并修改格式，代码如下：
Sub 正则看看()
isr = ActiveDocument.Content
With CreateObject("Vbscript.RegExp")
     .Global = False
     .MultiLine = True
     .Pattern = "(注意事项：\r)((^\d[\.、．][^\r]*\r)*(?!^\d))"
     Set mh = .Execute(isr)
         ft = mh(0).firstindex
         lth = mh(0).Length
         lh = Len(mh(0).submatches(0))
         With ActiveDocument.Range(ft, ft + lh).Font
              .Name = "方正苏新诗柳楷简体"
              .ColorIndex = wdDarkRed
              .Size = 14
         End With
         With ActiveDocument.Range(ft + lh, ft + lth).Font
              .Name = "仿宋"
              .ColorIndex = wdBlue
              .Size = 7.5
         End With
End With
End Sub

weiyingde

用word自带的查找能写出合理的表达是吗？请过路的大侠援手。期待！！