如何通过代码删除指定区域的非中文文本？

tangqingfu

请教如何通过代码做到批量删除文档词义部分中的以英文字母(26个大小写字母）、英文句号部分开头的内容，并将介于中文之间的英文文本替换为“;"？

413191246se

* 唐兄：新年快乐！

1. Sub delNonChn()
   
2.     Dim r As Range, s As Range, i&, n&
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then
   
5.             Set r = ActiveDocument.Content
   
6.         Else
   
7.             Set r = .Range
   
8.             Set s = .Range
   
9.             i = 1
   
10.         End If
    
11.     End With
    
12.     With r.Find
    
13.         .ClearFormatting
    
14.         .Text = "^9[A-Za-z.]{1,}"
    
15.         .Forward = True
    
16.         .MatchWildcards = True
    
17.         Do While .Execute
    
18.             With .Parent
    
19.                 n = n + 1
    
20.                 .MoveStart
    
21.                 .Text = Empty
    
22.                 With ActiveDocument.Range(Start:=.Start, End:=.Paragraphs(1).Range.End)
    
23.                     .Find.Execute "[A-Za-z.]{1,}", , , 1, , , , , , "；", 2
    
24.                 End With
    
25.                 If i = 1 Then .SetRange Start:=.End, End:=s.End
    
26.             End With
    
27.         Loop
    
28.     End With
    
29.     MsgBox "共找到 " & n & " 个！", 0 + 48
    
30. End Sub

复制代码

tangqingfu

413191246se 发表于 2021-1-19 23:26
* 唐兄：新年快乐！

谢谢413191246se兄，能否解释下这句代码：.Find.Execute "[A-Za-z.]{1,}", , , 1, , , , , , "；", 2
如果能对代码做下注释就更好了，想了解学习下操作思路

413191246se

"[A-Za-z.]{1,}"意思是：英文大写小写字母加小数点，至少一个，多了连选。
“1”是勾选“使用通配符”，“2”是全部替换。唐兄，我的《自动排版宏》不知你用了没有，建议可以试用。

晨晓之黎

413191246se 发表于 2021-1-20 13:51
"[A-Za-z.]{1,}"意思是：英文大写小写字母加小数点，至少一个，多了连选。
“1”是勾选“使用通配符”， ...

赞！这个很好看懂！帮助文件里面有没有这个？这个是正则吗

413191246se

算正则吧！正则在 VBScript 脚本中的应用，也可看作是通配符的应用。