如何删除多余空行（曾看到守柔制作过word模板，现在找不到了）

twz

如何删除多余空行（曾看到守柔制作过word模板，现在找不到了）www.excelhome.cn为何打不开？？

wudixin96

没有.CN的，用COM

期待_123

查找替换：
1、如果是段落结束符产生的空行，^p^p替换为^p，多做几次，直到找不到任何要替换的数据即可。
2、如果是换行符产生的空行，则在查找内容中输入^l^l。接着在替换为框中输入^p。

偏要注册

Sub 删除空行()
  '册除多余的行
  Dim oPar As Paragraph
  With ThisDocument
    For Each oPar In .Paragraphs
      With oPar
        If Len(.Range) = 1 Then
          .Range.Delete
        End If
      End With
    Next oPar
  End With
End Sub

美髯客

学习一下，有用呢！

blackttea1

学习一下，有用呢！

daibao88

Sub 删除空行()
  '册除多余的行
  Dim oPar As Paragraph
  With ActiveDocument
    For Each oPar In .Paragraphs
      With oPar
        If .range.Characters.Count = 1 Then
          .range.Delete
        End If
      End With
    Next oPar
  End With
End Sub

daibao88

Sub 删除空行()

    ActiveDocument.Content.Find.Execute findtext:="[^32^11^13]{2,}", MatchWildcards:=True, replacewith:="^p", Replace:=wdReplaceAll

End Sub

ke3088

偏要注册 发表于 2010-10-9 13:38
Sub 删除空行()
  '册除多余的行
  Dim oPar As Paragraph

学习，长知识了

413191246se

8 楼代码并不管事，4 种空格不能消除。