怎么 去掉word 表格中的 回车字符

有word 里面 有很多 表格 和 段落
现在想 一下子 将word 中所有 表格 中的 “^p”  代表 回车键

就是替换回车键，但是 有不能替换 段落的 回车键

我用了以下代码：
Application.ScreenUpdating = False

    For i = 1 To ActiveDocument.Tables.Count
   
   
     ActiveDocument.Tables(i).Select
       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:=wdReplaceAll, Wrap:=wdFindStop
   
    Next
    Application.ScreenUpdating = True

很慢，当我 数量多了 就会卡死了
求高手帮忙，快速 替换

工具->选项->视图,去掉段落标记前的√即可。

“^p^p”  替换为 “^p”