用VBA选中一段话

suidehan

问题描述
这段话的特征是   四位数字+任意字符+1数字，如“2234都是科垃圾分类看见过1按时ab地方1”.
将这段话选中，然后加粗、增大字号等显示。
谢谢各位大侠了

suidehan

改一下：
这段话的特征是   四各汉字+任意字符+1数字，如“美国大学都是科垃圾分类看见过1按时ab地方1”.
前四个字是固定的“美国大学”

duquancai

suidehan 发表于 2018-8-2 20:00
改一下：
这段话的特征是   四各汉字+任意字符+1数字，如“美国大学都是科垃圾分类看见过1按时ab地方1”.
...

没附件做不了。只能根据附件来做，附件不同结果有可能不同，没有通用性，只有针对性！

suidehan

duquancai 发表于 2018-8-2 20:48
没附件做不了。只能根据附件来做，附件不同结果有可能不同，没有通用性，只有针对性！

附件上传
选中格式为“美国大学+任意字符+1个数字”的每一段话
谢谢大侠

duquancai

suidehan 发表于 2018-8-2 20:54
附件上传
选中格式为“美国大学+任意字符+1个数字”的每一段话
谢谢大侠

1. Sub main()
   
2.     With ActiveDocument.Content.Find
   
3.         Do While .Execute("美国大学[!^13]@[0-9]^13", , , -1)
   
4.             With .Parent
   
5.                 If Left(.Paragraphs(1).Range.Text, 4) = "美国大学" Then
   
6.                     .Bold = -1
   
7.                 End If
   
8.             End With
   
9.         Loop
   
10.     End With
    
11. End Sub

复制代码

suidehan

谢谢啦，您真是太好了

jiminyanyan

杜老师是这方面的专家。。。