如何用查找替换或宏命令来中英文换行？

batmanbbs

1. Sub 中英换行()
   
2. 
   
3.     Dim myPG As Paragraph
   
4.     Dim oRegEx As Object, myMatches As Object
   
5.     Dim j%, i%, rStart&, rEnd&
   
6. 
   
7.     Set oRegEx = CreateObject("VBSCRIPT.REGEXP")
   
8.     With oRegEx
   
9.         .Global = True
   
10.         .IgnoreCase = False
    
11.         .MultiLine = False
    
12.         .Pattern = "[a-zA-Z][\u0020-\u007f’]{5,}[，！？。]*"        ' "5"代表5个英文字符以内的保留在汉字中，比如文中的OK，Um
    
13.     End With
    
14. 
    
15.     For j = ActiveDocument.Paragraphs.Count To 1 Step -1
    
16.         Set myPG = ActiveDocument.Paragraphs(j)
    
17.         With myPG.Range
    
18.             If Len(.Text) > 1 Then
    
19.                 Set myMatches = oRegEx.Execute(.Text)
    
20.                 If myMatches.Count > 0 Then
    
21.                     For i = myMatches.Count - 1 To 0 Step -1
    
22.                         rStart = .Start + myMatches(i).FirstIndex
    
23.                         rEnd = rStart + myMatches(i).Length
    
24.                         If ActiveDocument.Range(rEnd, rEnd + 1) <> Chr(13) Then _
    
25.                            ActiveDocument.Range(rEnd, rEnd).InsertAfter Chr(13) & Chr(13)
    
26.                         If ActiveDocument.Range(rStart - 1, rStart) <> Chr(13) Then _
    
27.                            ActiveDocument.Range(rStart, rStart).InsertBefore Chr(13)
    
28.                     Next i
    
29.                 End If
    
30.             End If
    
31.         End With
    
32.     Next j
    
33. 
    
34.     Set myPG = Nothing
    
35.     Set oRegEx = Nothing
    
36.     Set myMatches = Nothing
    
37. 
    
38. End Sub

复制代码

cutebear1978

batmanbbs 发表于 2023-5-22 19:21

小白弱弱的请教大侠一个问题：

怎样在word里面创建一个新的宏，然后把这个代码复制进去？小白对VBA不熟悉，只知道通过录制宏的方式来
建立一个宏，不知道怎么把代码复制过去？

感谢！

batmanbbs

cutebear1978 发表于 2023-5-22 16:31
抱歉，上传的压缩文件有2个文档：

优化了一下，查找替换也基本可以实现，可以多次使用，唯一缺点是最后一个英文段落无法识别。
查找：([!^13])([a-zA-Z][^32-^127\’，？！。]{5}[^32-^127\’，？！。]@)([!^13^32-^127\’，？！。])
替换：\1^13\2^13^13\3
希望高手再简化一下。

batmanbbs

wdpfox

batmanbbs 发表于 2023-5-22 19:21

图中的那个单引号是什么意义？

batmanbbs

wdpfox 发表于 2023-5-23 11:15
图中的那个分号是什么意义？

楼主提供的文档中，英文中经常夹带中文全角符号，＇就是（半角应该是'），比如let＇s...，为了提高兼容性，只好将这些符号也纳入到识别范围。但如果文档规范，可以不添加这个符号（包括后面的，。？！）。

wdpfox

batmanbbs 发表于 2023-5-23 11:19
楼主提供的文档中，英文中经常夹带中文全角符号，＇就是（半角应该是'），比如let＇s...，为了提高兼容性 ...

明白了，谢啦     

cutebear1978

batmanbbs 发表于 2023-5-22 19:21

堪称完美！！！

413191246se

楼主，你为什么非要录制宏后，把别人的宏要放进去呢（宏里套宏要不得）？你复制别人的宏代码后，按 Alt + F11 就进入了 VBE（VB 代码编辑器），然后，将复制的宏另起一行粘贴到最后面就行了。然后，关闭此界面，回到 Word 编辑界面，按 Alt + F8 打开宏名列表，找到此宏后，点击右面的“运行”按钮（或双击）即可运行此宏了（宏的标志就是 Sub ... End Sub）。

cutebear1978

413191246se 发表于 2023-5-24 01:26
楼主，你为什么非要录制宏后，把别人的宏要放进去呢（宏里套宏要不得）？你复制别人的宏代码后，按 Alt + F ...

对啊！感谢提醒。教会我了一个简洁的新方法。