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:=wdReplaceAllEnd Sub