下载之家:专注下载8年,极速安全,用心打造!

下载之家首页 |最新软件 |软件排行 |软件专题

您当前所在位置: 下载之家 >  资讯 >  PC软件资讯 >  办公软件 >  Word 2013文档段落中的硬回车如何快速删除?

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

时间:2016/02/29 15:13:26来源:下载之家作者:Jyogetu

导读:  在Word文档中,有时会出现一些多余的空白段落。这样的空白段落的典型特征是其只有一个硬回车,在对文档编辑时可以通过使用\"Delete\"依次删除这些硬回车来删除这样的空白段落。实际上,通过编写简单的VBA代码可以快速实现对这类空白段落的删除,具体的方法就是在代码中对所有段落进行判断,判断其长度是否为1,如果是就删除该段落。下面介绍快速删除Word 2013文档段落中的硬回车的具体操作方法。

  在Word文档中,有时会出现一些多余的空白段落。这样的空白段落的典型特征是其只有一个硬回车,在对文档编辑时可以通过使用"Delete"依次删除这些硬回车来删除这样的空白段落。实际上,通过编写简单的VBA代码可以快速实现对这类空白段落的删除,具体的方法就是在代码中对所有段落进行判断,判断其长度是否为1,如果是就删除该段落。下面介绍快速删除Word 2013文档段落中的硬回车的具体操作方法。

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

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

  图1 需要处理的文档

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

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

  图2 选择"模块"命令

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

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

  图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所示。

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

相关阅读 微软正式发布Office2016 面向365用户开放 空间缩减为1G WPS云空间已满怎么办? 怎样做出有设计感的PPT?PPT怎么制作才更带感 Word文档打印后页脚和页眉显示不全解决方法 Office 2016 Word里的这个按钮 90后都认识吗 用PS怎样做透明字体? PPT2013怎样设置幻灯片播放顺序? Word文档打不开发送错误报告解决方法