Word文档空白段落你还在使用退格键一个一个删除吗?其实使用一段VBA代码就可以快速批量删除文档中所有空白段落,一劳永逸。。
功能简介:可以对指定长度的段落进行删除,当LEN=1时可对空白段落进行删除。
代码如下:
Sub DelBlank() Dim i As Paragraph, n As Long Application.ScreenUpdating = False '关闭屏幕刷新 For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环 If Len(i.Range) = 1 Then '判断段落长段,此处可根据文档实际情况 i.Range.Delete '进行必要的修改可将任意长度段落删除 n = n + 1 '计数 End If Next MsgBox "共删除空白段落" & n & "个!" Application.ScreenUpdating = True '恢复屏幕刷新 End Sub
如何将Excel表格里所有批注快速批量提取出来
我们在使用Excel表格时经常会对一些单元格做一些备注,通常...2020-10-31Excel工作簿有多个数据透视表如何实现批量刷新
我们在使用Excel做数据统计时,可能一个工作簿会有很多数据...2020-12-22ODBC数据源管理器找不到Excel Driver Acce
我们在做VBA编程需要读写外部数据时,常用到外部数据源,例如...2020-11-16使用VBA操作Word中的表格定位表格位置
新建一个空白文档,插入一个三行三列的表格,在VBA编辑窗口的...2020-10-31Excel自动添加复选框控件及事件代码
Excel VBA开发的自动添加复选框(CheckBox控件...2020-10-3175例常用的带解释的Excel VBA代码示例
对于VBA的初学者来说,很想了解一些常用的VBA代码,在日常...2020-11-09用'FileDialog'作用于对象'_Applicatio
我们在使用VBA代码时,用时候要用到打开选择文件功能,一般会...2021-04-24将VBA编写的函数过程封装成DLL组件并在Office\Ex
我们在使用Office办公软件时,有时候要扩展功能或实现自动...2021-04-23