word如何批量删除空行_第1页
word如何批量删除空行_第2页
word如何批量删除空行_第3页
word如何批量删除空行_第4页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、word 如何批量删除空行空行为回车直接敲出来的用ApAp会把所有的回车都删掉使全文格式全无Ap也是格式全无求一种即能删除空行格式又能保持的方法不是shift加回车的空行哦!用A|不管用最佳答案用Word打开含空行的文章,依次单击工具於“一“VisualBas辑器”,打开VisualBasic编辑器。双击“Project下的“ThisDocument”,打开代码”输入窗口,将下面的代码输入进去,并保存。SubDelBlank()DimiAsParagraph,nAsIntegerApplication.ScreenUpdating=FalseForEachiInActiveDocument.P

2、aragraphsIfLen(i.Range)=1Theni.Range.Deleten=n+1EndIfNextMsgBox共删除空白段落&n&个Application.ScreenUpdating=TrueEndSub代码输入完毕,单击工具栏”中的运行”按钮,执行这段代码。这时,会弹出一个消息窗口,告诉你一共删除了多少空行(如图)MicrOSoR:1共删除空白段落25个在平时上网过程中,我们经常将网页上有参考价值的文字信息复制到Word中,进行保存打印。但有时从网页复制下来的文字包含许多空行,使得页数居高不下,阅读和打印都很不方便。怎样将Word中的空行删除呢,笔者教你三种

3、方法。替换法在用替换法之前,首先要搞清楚文章中的换行符是手动换行符(“Shift+车”,)还是段落标记。其次,还要观察文章中的空行是否有规律性,如一次空一行,还是一次空两行。弄清了这两点,我们就好操作了。笔者以文章的换行符为段落标记”和工次空两行”为例讲解。首先,选取文章中要删除空行的文字内容,使其反白显示。然后,单击编辑”一替换”,弹出查找和替换”对话框。依次单击高级”-特殊字符”一段落标记”,输入一个段落标记”符。用同样的方法,再输入两个段落标记”符。(若文章中是人工换行符”,在这里则输入人工换行符”;若文章空行&次空一行”,在这里只需输入两个段落标记符)。这时,在查找和替换”对话

4、框中就出现了三个连续的0单击替换为输入框,用同样的方法输入一个op最后,单击全部替换”,选中文章中的所有空行就被删除了。如果,文章中的空行没有规律性(如有时空一行,有时空两行),替换法就无能为力了,则用下面的方法来解决。筛选法筛选法”就是将Word中含有空行的文本复制到Excel中,然后利用Excel的筛选”功能筛选出空行,将其删除。首先,将Word中含有空行的文本选中,并单击编辑”中的复制”,复制到剪贴板中。然后,打开Excel,单击A1单元格,将剪贴板中的文本粘贴到工作表中。选中“侬U,依次单击数据”一筛选”一自动筛选单击A1单元格的筛选按钮,选取空白”,筛选出空白行,并全部删除。最后,取

5、消自动筛选”,选取含文本的单元格并复制,切换到word中用选择性粘贴”一元格式文本”,粘贴即可。程序法用Word打开含空行的文章,依次单击工具医fVisualBaSC辑器,打开VisualBasic编辑器。双击Project下的ThisDocument:打开代码输入窗口,将下面的代码输入进去,并保存。SubDelBlank()DimiAsParagraph,nAsIntegerApplication.ScreenUpdating=FalseForEachiInActiveDocument.ParagraphsIfLen(i.Range)=1Theni.Range.DeleteEndIfNext

6、MsgBox共删除空白段落&n&个Application.ScreenUpdating=TrueEndSub代码输入完毕,单击工具栏”中的运行”按钮,执行这段代码。这时,会弹出一个消息窗口,告诉你一共删除了多少空行(如图2)图2软件法Word空行的删除还可以通过第三方软件来实现。从http:/ :先把两个相邻的回车符(与)替换为一个文档中没有的特殊符号,比如四分之一分隔符。用以标记正常的分段。2:再把所有的单个回车符(Ap)替换为空格。3:把之前替换的文档中没有的特殊符号,比如四分之一分隔符,替换成单个的回车符(Ap),还原自然分段。并去除了空行。4:把可能出现的标点后的多于空格替换,比如逗号空格(,)替换成单个逗号(,)。句号、问号等都照做这样就基本上完成了冗余格式的清理。最后效果如下图所示:图5由于人名是全大写的,和对白在同一行并不影响阅读,所以不必再单独分段。如果想像原文一样单独一行,还可以用查找替换,选上区分大小写,替

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论