1、启动Word 2013 并打开需要处理的文档,该文档中存在多余的空白段落,如图1所示 。
图1 需要处理的文档
【在工程资源管理器窗格中右击需要处理文档所对应的工程】2、按“Alt+F11”键打开Visual Basic编辑器,在“工程资源管理器”窗格中右击需要处理文档所对应的工程,在打开的快捷菜单中选择“插入”|“模块”命令,如图2所示 。
图2 选择“模块”命令
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 文档中的空白段落被删除
推荐阅读
- 现代汉语语素中属于黏着语素的是
- 这种情况第一是由于文档过大造成的
- 在打印分节文档中连续和不连续的页时
- 请单击对齐下拉菜单中的网格设置命令
- 1、运行电脑上安装的迅捷excel转换成pdf转换器
- PowerPoint2003图片透明色的设置
- 然后同上述方法选择【设置打印区域】
- 请问重庆欢乐谷门票多少钱,重庆欢乐谷门票价格优惠
- 期权账户和股票账户是一个吗