Excel|如何用vba代码批量替换word文档中的无意义空白行？|word,字符串,换行符

Q: 如何用vba代码批量替换word文档中的无意义空白行？
A: 代码如下：

1. Sub test()
   
2. Dim Str$, mMatch, Targ$, N&
   
3. Str = ActiveDocument.Range.Text '取得文本内容
   
4. With CreateObject('vbscript.regexp')    '创建正则项目
   
5.     .Global = True  '全局有效
   
6.     .MultiLine = True   '多行有效
   
7.     .Pattern = '[\r\n] [\s　]*[\r\n] '  '设定匹配规则(两端是回车和/或换行符的中间全部是空白字符的字符串)
   
8.     For Each mMatch In .Execute(Str)    '循环匹配到的结果
   
9.         With Selection.Find '设定查找替换
   
10.             .ClearFormatting    '清除原有替换格式
    
11.             .Replacement.ClearFormatting
    
12.             .Text = mMatch.Value    '设定替换字符串为找到内容
    
13.             .Replacement.Text = vbCrLf  '替换为回车换行符
    
14.             .Forward = True '向下查找
    
15.             .Wrap = wdFindContinue  '到结尾后折回查找前面未搜索区域
    
16.             .Execute Replace:=wdReplaceAll  '执行并替换文档中的全部匹配内容
    
17.         End With
    
18.     Next mMatch
    
19. End With
    
20. End Sub