首页 > 电脑专区 > 电脑网络 >

网上复制的文章空行等特殊格式批量整理

来源:互联网 2023-03-03 10:54:43 115

网上复制的文章(它的格式也被复制),粘贴到word文档中,经常有回车、换行符等特殊格式造成的不必要的空行,影响美观,本文提供一些有效的批量整理的方法,希望对大家有帮助。ilH办公区 - 实用经验教程分享!

工具/原料

  • 网页浏览器
  • word

方法/步骤

  • 1

    可将网上的文章,复制粘贴到记事本中,再从记事本中复制—粘贴到Word文档中,这样能自动删除许多空白行和广告图片、形状等等。ilH办公区 - 实用经验教程分享!

    从下边两张图片对比,可以发现直接粘贴到word中会留下很多图片形状,而粘贴到记事本中,这些形状就自动没有了。ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 2

    如果有一些带回车符的空白行:ilH办公区 - 实用经验教程分享!

    可依次点击:编辑—替换,在“查找内容”栏中输入“^p^p”(P前面的小符号是数字6的上档键),在“替换”栏中输入“^p”,单击“全部替换”按钮,删除多余的空白行。ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 3

    如果有一些换行符(象这种“↓”)的空白行:ilH办公区 - 实用经验教程分享!

    可依次点击:编辑—替换,在“查找内容”框内输入半角^l(注意:此处是英文状态下的小写L不是数字1),在替换框内不输任何内容,单击“全部替换”,就把批量删除换行符。ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 4

    如果有一些制表符、分页符、换行符、分栏符:ilH办公区 - 实用经验教程分享!

    我们只要对这些特殊符号删除掉,或者替换掉就可以了;ilH办公区 - 实用经验教程分享!

    对于一些特殊符号的输入表示法。如:“^l”表示软回车; “^p”表示硬回车,“^t”表示制表符; “^m”表示手动分页符,“^ ”表示长划线(—); “^=”表示短划线(–),“^l”表示人工换行符; “^n表示分栏符。ilH办公区 - 实用经验教程分享!

    (上述符号中的“”不属于特殊符号本身)ilH办公区 - 实用经验教程分享!

  • 4此文章未经许可获取自百度经验
  • 5

    另外还可利用Word提供的“选择性粘贴”进行:在进行了复制操作后,再转入Word,鼠标右键,点击粘贴的“文本粘贴”;另外也可采用先把内容复制到记事本中再从记事本进行复制,然后转入到 Word文件中进行粘贴的间接方法完成。(同步骤1)ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 6

    此外,在word中部分行与行直接的空白很大,不一定是空行,也可能是行间距比较大,可以通过设置段落—行间距的方法删除。ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 方法/步骤2

  • 1

    使用vba进行批量替换ilH办公区 - 实用经验教程分享!

    在word界面,按ALT F11,打开vba编辑器ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 2

    双击thisdocument,进入到编辑页面ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 3

    在编辑页面,粘贴如下代码,点击“执行”ilH办公区 - 实用经验教程分享!

    VBA代码如下:ilH办公区 - 实用经验教程分享!

    Sub删除空行()ilH办公区 - 实用经验教程分享!

    Dim I As Paragraph, n%ilH办公区 - 实用经验教程分享!

    Application.ScreenUpdating = FalseilH办公区 - 实用经验教程分享!

    For Each I In ActiveDocument.ParagraphsilH办公区 - 实用经验教程分享!

    If Len(Trim(I.Range)) = 1 ThenilH办公区 - 实用经验教程分享!

    I.Range.DeleteilH办公区 - 实用经验教程分享!

    n = n 1ilH办公区 - 实用经验教程分享!

    End IfilH办公区 - 实用经验教程分享!

    NextilH办公区 - 实用经验教程分享!

    MsgBox "共删除空白段落" & n & "个"ilH办公区 - 实用经验教程分享!

    Application.ScreenUpdating = TrueilH办公区 - 实用经验教程分享!

    End SubilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 4

    运行结果提示ilH办公区 - 实用经验教程分享!

    网上复制的文章空行等特殊格式批量整理ilH办公区 - 实用经验教程分享!

  • 注意事项

    • 具体问题具体分析,不同的空行的原因不同,可以通过多观察,找出原因;
    • 针对具体原因,采取相应的方法,一定能有效的处理。

    以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!ilH办公区 - 实用经验教程分享!


    标签: WordVBA网络

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码