Word中用换行符替换分段符的宏

在Word中添加代码的时候，经常希望粘贴的代码并不是每一行作为一个段落，而是仅仅是分行符。就像HTML网页的<br/>和<p/>拷贝到word中的显示是不同的。

在网上似乎找不到什么资料，只好自己摸索了。最后发现换行符的字符ASCII码实际上是11，而分段符是13。有了这个信息，处理起来就容易多了。可以用下面的宏来处理：

Sub RemoveParagraph() Sub RemoveParagraph()
    With Selection.Find
        .ClearFormatting
        .MatchCase = False
        .Execute FindText:=Chr(13), ReplaceWith:=Chr(11), Replace:=wdReplaceAll
    End With
End Sub