宏—无格式粘贴与删除空行.docx

一、代码
（一）删除空行—宏
Sub DelBlank()
Dim i As Paragraph, n As Integer
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
（二）无格式粘贴—宏
Sub 无格式粘贴()

'无格式粘贴 Macro
'宏在 2005-9-22 由 SQ 录制

Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
End Sub
二、操作
1、开发工具→录制宏→确定

2、停止录制

3、宏→宏1→编辑

4、模块→右击插入→模块

5、复制删除空行宏到模块

6、点击保存，关闭文档

7、自定义快速访问工具栏图标
①自定义快速访问工具栏→其他命令

②从下列位置选择命令→宏

③选择刚录入的宏→添加

④选择刚添加的宏→修改→自选图标→确定