如何选中任意段落后，单击快速访问工具栏，替换/删除选中段落中的回车空格等字符

messi7

尝试了录VBA，也曾一句一句的调整，一直失败，结果为“整个word中的回车和空格都被替换”
例子：
原文：

”我
不知
道“

目标是选中后立刻变成”我不知道“



Sub 宏1()
'
' 宏1 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceOne
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub



发现关键在于“ Selection.Find.Execute Replace:=wdReplaceOne”
如果是wdReplaceOne就只替换一个，wdReplaceAll就替换整个word文件，我又没有遍历和计数的办法，求助

zpwtl

先要确定你的换行符是↓还是↵，前者是^l，后者是^p
要不然就分段替换，但是段末要手动换行，因为替换要吃掉最后那个回车