WORD文档每隔一行有一行空格,如何删除?

来源：百度知道 编辑：UC知道 时间：2024/05/17 10:42:30
回答者：HXH850720 - 助理 二级 5-9 18:16
是有一现在的文档,我想删除所有的空行

首先点“工具”“宏”“宏”“创建”然后清除已经有的几行代码。
复制下面的代码到其中！

Sub 删除空行()
i = 1
Do
ActiveDocument.Paragraphs(i).Range.Select
If Trim(Selection.Text) = Chr(13) Then
Selection.Delete
Else
Selection.MoveDown
i = i + 1
End If
Loop Until i = ActiveDocument.Paragraphs.Count
End Sub

保存后，返回word视图，点“工具”“宏”“宏”选中你刚创建的宏，点“运行”就可以了。
还不清楚的话可以加我为好友，联系我!

你是不是套用一定 的格式了
有点不懂