怎么用按键精灵删除段落行尾的回车符，但是保留段落之间的回车？

下面图中是在小红书截图，再ocr识别的文字

发现第行都有回画换行符，这样直接粘贴到我网站上段落的右边对不齐，所以我想把一个段落中每行后面的回车符删了，但是两个段落之间的那两个回车换行符不要删，用按钮精灵就可以实现，思路就是两个段落之间的回车换行符是连着的两个回车符，所以用replace函数先把这两个连着的回车符换成不常见的字符串，比如换成^__^，再把所有的单个回车符删除，最后再把^__^换回成连着的两个回车符。代码如下：

Dim Clipboard,text

Clipboard = Plugin.Sys.GetCLB()//GetCLB 获得剪切板内容

text = Replace(Clipboard, vbCrLf&vbCrLf, "^__^")

text = Replace(text, vbCrLf, "")

text = Replace(text, "^__^",vbCrLf&vbCrLf)

Call Plugin.Sys.SetCLB(text) //把text变量的内容赋予剪贴板