VBA代码：断行相连（文字半行半行断开解决办法）

413191246se

真没想到，老大难问题，一句代码解决了！如果在排版时遇到半行半行断开，且都是以回车符断开的情况，用下面的宏代码可以解决（前提是每个标准段落以句号“。”为结束标志）：

' 断行相连
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Right(i.Range.Text, 2) <> "。" & Chr(13) Then
            i.Range.Characters.Last.Delete
        End If
    Next

如果查看文档半行半行断开由于软回车的原因，请先执行下面的代码，把软回车（也叫：人工换行符，我叫它 直回车）先行转换为 回车符（也叫 段落标记，我叫它 弯回车）：

' 替换换行符为段落标记
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

—— .Characters.Last.Delete 这样就可以删除回车符，太好了！——有不对的地方，请大家批评指正，3Q！汤老师的《Word常用查找与替换实例及方法》一文，很好！里面有不少实例，但我个人还是倾向于VBA代码解决，因为替换时记不住那些代码，仍然 3Q！

bxlzbtpap

可用为参考。但偶个人感觉，断行问题情况很复杂，不可能有一个包治百病的代码。

美髯客

呵呵，学习了，正在用呢！