none
如何自动删掉word多余的空行 RRS feed

答案

  • 使用查找替换法:

    查找内容:^p^p

    替换为:^p

     

    VBA法:

    Sub 删除空行()
      Dim i As Paragraph, n As Long
      For Each i In ActiveDocument.Paragraphs  '检查当前文档中的每一个段落
        If Len(i.Range) = 1 Then         '如果段落长度等于1
          i.Range.Delete            '删除此段落
          n = n + 1                '计数器加1,累计删除的段落数量
        End If
      Next
      MsgBox "共删除段落" & n & "个!"        '利用MsgBox函数返回一个显示删除段落总数的对话框
    End Sub
    
    


    我的小站:http://pfsx.5d6d.com

    我的新书:《Word排版之道》已被台湾引进

    我的新书:《Excel公式与函数大辞典》已出版上市

    2010年7月22日 5:36
    版主

全部回复

  • 使用查找替换法:

    查找内容:^p^p

    替换为:^p

     

    VBA法:

    Sub 删除空行()
      Dim i As Paragraph, n As Long
      For Each i In ActiveDocument.Paragraphs  '检查当前文档中的每一个段落
        If Len(i.Range) = 1 Then         '如果段落长度等于1
          i.Range.Delete            '删除此段落
          n = n + 1                '计数器加1,累计删除的段落数量
        End If
      Next
      MsgBox "共删除段落" & n & "个!"        '利用MsgBox函数返回一个显示删除段落总数的对话框
    End Sub
    
    


    我的小站:http://pfsx.5d6d.com

    我的新书:《Word排版之道》已被台湾引进

    我的新书:《Excel公式与函数大辞典》已出版上市

    2010年7月22日 5:36
    版主
  • 楼上的,你这招是不是跟我学的?:P

    在单元格里横行的……

    QQ:76332468

    www.excelpx.com

    www.exceljy.com

    www.access-cn.com/vvb/

    2010年7月22日 13:23