怎么批量删除word中的回车？怎么才能快速删除

怎么批量删除word中的回车？怎么才能快速删除End Iftemp.Range.DeleteDim temp As ParagraphFor Each temp In ActiveDocument.ParagraphsIf VBA.Len(temp.Range)=1 Then

很多人，尤其是强迫症患者，是不是看到Word文档里密密麻麻的回车符就浑身不舒服？一行一行的删起来又特别费力？小编也是如此，后来学习了一下宏命令，硬回车符号的问题竟然可以这么简单就解决了，真是广大强迫症患者的福音啊！

在Word文档中，切换到视图页面，点击最左侧的“宏”，在弹出窗口内，输入一个名字，比如删除回车之类的，然后点击“创建”。

这时，在右侧栏中输入以下内容（老规矩，微信PC端登录，查看订阅号历史消息，找到文章段落并复制）：

Sub Del()

Dim temp As Paragraph

For Each temp In ActiveDocument.Paragraphs

If VBA.Len(temp.Range)=1 Then

temp.Range.Delete

End If

Next

End Sub

输入完成后关闭窗口，回到Word界面，再次点击“宏”弹出窗口选中你建立的宏命令，点击“运行”，瞬间所有单独的回车段落都被删除了，这样可以省很多麻烦，而且看起来也更加清爽，你还不快试试？