作者：绿色风
分类：
时间：2022-08-18
浏览：107
楼主
kevinchengcw |
Q: 如何用vba代码批量替换word文档中的无意义空白行？
A: 代码如下：
- Sub test()
- Dim Str$, mMatch, Targ$, N&
- Str = ActiveDocument.Range.Text '取得文本内容
- With CreateObject("vbscript.regexp") '创建正则项目
- .Global = True '全局有效
- .MultiLine = True '多行有效
- .Pattern = "[\r\n]+[\s ]*[\r\n]+" '设定匹配规则(两端是回车和/或换行符的中间全部是空白字符的字符串)
- For Each mMatch In .Execute(Str) '循环匹配到的结果
- With Selection.Find '设定查找替换
- .ClearFormatting '清除原有替换格式
- .Replacement.ClearFormatting
- .Text = mMatch.Value '设定替换字符串为找到内容
- .Replacement.Text = vbCrLf '替换为回车换行符
- .Forward = True '向下查找
- .Wrap = wdFindContinue '到结尾后折回查找前面未搜索区域
- .Execute Replace:=wdReplaceAll '执行并替换文档中的全部匹配内容
- End With
- Next mMatch
- End With
- End Sub
|
2楼
xyf2210 |
这个好 |
3楼
烟花醉 |
学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一