在使用 Microsoft Word 编辑文档时,经常会遇到文档中存在大量空行的情况,这不仅影响阅读体验,也显得排版不专业。本文将介绍几种简单有效的方法,帮助你快速删除 Word 文档中的空行。
^p^p(表示两个连续段落标记)。^p(表示一个段落标记)。^13{2,}。^p。
Sub DeleteBlankLines()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If Len(Trim(para.Range.Text)) = 1 Then
para.Range.Delete
End If
Next para
End Sub
建议在执行批量替换或宏操作前,先备份原始文档,以防误操作导致内容丢失。