word中硬回车替换软回车的宏

可以把所选内容中的硬回车替换为软回车

Sub 替换手动换行符成回车符()
With Selection.Find
.Text = "^p";
.Replacement.Text = "^l";
.Forward = False
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
 Selection.Style = "代码";
End Sub

2021-07-04
2022-02-25
2021-12-28
2022-12-23
2021-11-15
2021-09-29
2022-12-23
2022-12-23