软件发布| 专题库| 优优资讯| 苹果专区| 安卓专区| 软件下载| 首页
优优资讯 电脑教程 安卓教程 安卓攻略 苹果教程 苹果攻略 新闻资讯

如何快速删除Word 文档段落中的硬回车?

时间:2015-10-20 来源:本站整理 我要评论

  在编辑Word文档时,一般遇到硬回车,我们会通过使用“Delete ”依次删除这些硬回车来删除,很明显这种方法很傻。但是如果通过编写简单的VBA代码,可以快速实现对这类空白段落批量删除,更加方便快速,看起来是不是很高大上,其实它的原理是通过代码对所有段落进行判断,判断其长度是否为1,如果是就删除该段落。下面就和大家介绍这种快速删除Word文档段落中的硬回车的具体操作方法。

  1、启动Word 2013 并打开需要处理的文档,该文档中存在多余的空白段落,如图1所示。

图1 需要处理的文档

  图1 需要处理的文档

  2、按“Alt+F11”键打开Visual Basic编辑器,在“工程资源管理器”窗格中右击需要处理文档所对应的工程,在打开的快捷菜单中选择“插入”|“模块”命令,如图2所示。

图2 选择“模块”命令

  图2 选择“模块”命令

  3、此时将插入一个模块,在该模块的代码窗口中输入程序代码,如图3所示。具体的程序代码如下。

图3 在“代码”窗口中输入程序代码

  图3 在“代码”窗口中输入程序代码

  01 Sub Del()

  02 Dim temp As Paragraph

  03 For Each temp In ActiveDocument.Paragraphs

  04 If VBA.Len(temp.Range)=1 Then

  05 temp.Range.Delete

  06 End If

  07 Next

  08 End Sub

  4、按“F5”键执行该过程,文档中的空白段落被直接删除,如图4所示。

图4 文档中的空白段落被删除

  图4 文档中的空白段落被删除
 

用户评论

(已有0条评论)
表情
注:您的评论需要经过审核才能显示哦,请文明发言!
还没有评论,快来抢沙发吧!
快速检索
0-9 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z