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

最新推荐文章于 2022-12-15 17:48:04 发布

预见未来to50

最新推荐文章于 2022-12-15 17:48:04 发布

阅读量1.1k

点赞数

分类专栏： Excel技巧及VBA编程（Excel_VBA）学以致用—实用程序（iApps）

本文链接：https://blog.csdn.net/hpdlzu80100/article/details/75000615

版权

Excel技巧及VBA编程（Excel_VBA）同时被 2 个专栏收录

404 篇文章 171 订阅

订阅专栏

学以致用—实用程序（iApps）

94 篇文章 2 订阅

订阅专栏

有时，需要复制网页上的部分文字，粘贴后发现有很多空行，如果手动移除空行，可能相当耗时（可能要花几分钟）。

所以，搞了个模板。

模板名称：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