如何用word vba删除符合条件的段落标记符？？？

aizaibianguan

例如第一个图片中每行还没有编辑完就换行了，一个一个删除换行符太慢了。想实现word vba编程，一键替换符合一行中最后一个不是符号或者是还能增加字符的效果。word VBA小白，excelvba 略懂。求大神帮个忙。感激不尽，他日将勤奋自学。

gbgbxgb

传个处理好的附件？你要帮助者花时间重新整理成原来乱七八糟的乱段落？佩服！！！
结论：不想当元帅的士兵不是好士兵，懒得动脑动眼动手帮复原的帮助者不是好的、诚心的帮助者！！！^_^

留个脚印。

413191246se

gbgbxgb 老师，好久不见！
楼主，你这个问题叫“断行相连”，请试用下面的 VBA 宏代码：
Sub 断行相连()
    ActiveDocument.Content.Find.Execute findtext:="([!。：！？…）])^13", MatchWildcards:=True, replacewith:="\1", Replace:=wdReplaceAll
End Sub