找回密码
 注册会员

QQ登录

只需一步,快速开始

查看: 1763|回复: 0

批量(word)删除空行的方法

[复制链接]
发表于 2009-3-23 15:22:10 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转南昌530论坛

您需要 登录 才可以下载或查看,没有账号?注册会员

×
方法一:
   对于硬回车:(就是在文本处理的时候,没到换行的时候按回车强制换行,显示的是一个深色的回车键。)

  "编辑--替换" -查找内容为"^p^p",替换成"^p"然后全部替换!

  对于软回车:(一般的情况是打字打到右边的边界会自动跳到下一行,上一行的行末有个浅色的回车键,这个是软回车。)

  "编辑--替换" -查找内容为"^l^l",替换成"^l"然后全部替换!

方法二:
     打开一个空白文档,进入“工具”菜单,选择“宏”,然后选择“宏”。在“宏名”栏中输入“删除空行”需要确保在下拉菜单中的“将宏保存在”选择“所有文档(Normal.dot)”,这将保证你能够在所有Word文档中使用这个宏。如果你不选择这个选项,当你想要打开一个新的Word文档的时候,你就会看到一条屏幕安全信息,你将不能够使用这个宏。 单击“创建”创建以“删除空行”命名的宏,单击该宏,选择“编辑”进入vb编辑框。在框内出入以下程序:

Sub 删除空行()
      Dim MyBar As CommandBarControl
      On Error Resume Next
      Application.CommandBars("Text").Controls("粘贴文本并删除空行").Delete
      Set MyBar = Application.CommandBars("Text").Controls.Add(Before:=4)
      With MyBar
          .Caption = "粘贴文本并删除空行"
          .FaceId = 480
          .OnAction = "PasteAndDel"
      End With
End Sub
'----------------------

Sub PasteAndDel()
      Dim StartRange As Long, EndRange As Long, MyRange As Range, OldEnd As Long
      Dim i As Paragraph
          On Error Resume Next
      '判断剪贴板是否有内容
      If Application.CommandBars.FindControl(ID:=22).Enabled = False Then Exit Sub
      Application.ScreenUpdating = False
      '原文档结束点位置
      OldEnd = ActiveDocument.Content.End
      With Selection
          .Collapse Direction:=wdCollapseEnd      '折叠到选定位置的末端
          StartRange = .Start      '获得一个位置
          .Range.PasteSpecial DataType:=wdPasteText      '光标处选择性粘贴为文本格式
          '获得粘贴后文本的末位置
          EndRange = StartRange + ActiveDocument.Content.End - OldEnd
          ActiveDocument.Range(StartRange, EndRange).Select      '选定该段文本
          For Each i In .Paragraphs      '指定段落中循环
              If Len(i.Range) = 1 Then i.Range.Delete      '如果为空行则删除
          Next
          .Copy      '重新复制,以便调用
      End With
      Application.ScreenUpdating = True
End Sub
单击“保存”对程序进行保存
此时在word空白页右键,在弹出的菜单栏里,可以看到新增了一个命令按钮“粘贴文本并删除空行”,就可以对文本进行操作了。(注:只能对文本进行操作)




上一篇:儿童应接种水痘疫苗
下一篇:不亦乐乎——小沈阳
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

如需要(删违规/投诉/建议/赞助等)请联系

本论坛所有来帖仅代表网友个人观点,不代表青山湖畔|南昌论坛立场。
网警提示:网络刷单是违法 切莫轻信有返利,网上交友套路多 卖惨要钱需当心,电子红包莫轻点 个人信息勿填写,仿冒客服来行骗 官方核实最重要,招工诈骗有套路 预交费用需谨慎,低价充值莫轻信 莫因游戏陷套路,连接WIFI要规范 确认安全再连接,抢购车票有章法 确认订单再付款,白条赊购慎使用 提升额度莫轻信,网购预付有风险 正规渠道很重要 如网民接到96110电话,请立即接听。

手机版|南昌530论坛

GMT+8, 2024-11-28 04:15

Powered by Discuz! X3.5

Cpoyright © 2001-2024 Discuz! Team

快速回复 返回顶部 返回列表