去除Word中的回车符

曾经有个网友问我如何快速地去掉Word文件中选定区域的回车符，花了点时间给做了个宏，感兴趣的朋友可以参考一下，源代码在下面，可以将源码拷到Word中的VB编辑器中，在Word文件中建立一个工具栏按钮运行，源码如下：

Sub Macro1()

Dim i As Integer
Dim j As Integer

i = Selection.Paragraphs.Count - 1

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    For j = 1 To i
        With Selection
            If .Find.Forward = True Then
                .Collapse Direction:=wdCollapseStart
            Else
                .Collapse Direction:=wdCollapseEnd
            End If
            .Find.Execute Replace:=wdReplaceOne
            If .Find.Forward = True Then
                .Collapse Direction:=wdCollapseEnd
            Else
                .Collapse Direction:=wdCollapseStart
            End If
            .Find.Execute
        End With
    Next j
End Sub
以上代码是在Word XP下制作的。