一篇英语文章内。可否用代码选定9到11个单词组成的句子？

zzpsx

新建 Microsoft Word 文档.rar (20.49 KB, 下载次数: 10)

2021-12-8 20:34 上传

点击文件名下载附件

一篇英语文章内，可否用代码选定9到11个单词组成的句子？也就是用代码给这样的句子加红色下划线。

413191246se

1. Sub a_RedUnderline()
   
2.     Dim i&, j&
   
3.     With ActiveDocument
   
4.         j = .Sentences.Count
   
5.         For i = 1 To j
   
6.             With .Sentences(i).Words
   
7.                 If .Count >= 9 And .Count <= 11 Then
   
8.                     With .Parent.Font
   
9.                         .Underline = wdUnderlineSingle
   
10.                         .UnderlineColor = wdColorRed
    
11.                     End With
    
12.                 End If
    
13.             End With
    
14.         Next
    
15.     End With
    
16. End Sub

复制代码

loquat

没有提供规则，都只能瞎猜：
1.一个句子是常规理解的"." "!" "?"这些作为结尾的话，vba本身提供了Sentences对象，直接读就行了
2.当然以上内置方法不一定如你的意，那就可以有很多别的方法了
   可以用通配符结合一下，也可以就用Sentences对象结合着调一调，最终大法正则，是万能方法
   vbscript.RegExp如果不行，还可以用pcre2