运行段落符替换换行符宏后Word复制粘贴崩溃的问题求助

我在工作流程里需要运行下面这个宏，完成后全选内容复制粘贴到另一个文档里。但每次宏跑完，我能全选内容，可一尝试复制，Word就直接卡死、崩溃闪退了，这到底是怎么回事啊？

Sub KK_RUN
'
' Kk_RUN Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "^p"
    .Replacement.Text = "^l"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

我已经重装/修复过Word了，用的是Word for Microsoft 365（版本2407）。文档里全是纯文本，没有任何计算内容。我还尝试过……

备注：内容来源于stack exchange，提问作者Elle S.