Word宏小代码.docVIP

Word宏小代码 1． Sub 粘贴无格式文本() Selection.PasteAndFormat (wdFormatPlainText) End Sub 2． Sub 删除空白行() 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 Sub 去掉空白行() Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting W