Office使用经验——一键移除文章中的多余空行（分享VBA源码）

有时，需要复制网页上的部分文字，粘贴后发现有很多空行，如果手动移除空行，可能相当耗时（可能要花几分钟）。
所以，搞了个模板。
模板名称：PDF无效行去除模板.docm
模板初始化界面：



空行移除前（杂乱无序，搞不懂哪来这么多空白）：



一键移除后：



怎么样，清爽多了吧。

最后，分享VBA代码如下：

Sub clearLine()
''remove invalid paragraph line of text copied from PDF file to word/note pad
'
'
Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub