求一段VB word宏 的代码 关于文件查找替换功能（vb宏如何一键生成一段文字）

有时下载或扫描后得到的文本是段落间插入了大量换行符，到一定字数时硬回车，字号小时看起来很整齐，但是编辑时很麻烦，需要批量去除硬回车。可以用宏，结合vb编程的方法去除（有谁会？请回答，并贴代码）。


还可以用office全家桶

解决批量去除硬回车

。

在word中

用替换功能，将

每一行末尾的^p

替换为

zzzz^p，
保存为txt文档

在excel中 打开这个txt文档

用分列功能，选择固定宽度，将

每一列文字分成左右2列。

再用替换功能

将第2列（右边1列）文字中的zzzz去除

（第一列中的zzzz不要动），
并

另存为txt文档

。

回到word中打开这个txt文档

用替换功能，

将 ^p 替换为“空”

，再将

制表符^t替换为”空“，

再用替换功能，

将zzzz替换为^

p保存为txt文档

完毕。