爱问知识人 爱问教育 医院库

为清除word文档中的空行和有?的行,我在宏中编写了如下代码,请问问题出在哪里?,

首页

为清除word文档中的空行和有?的行,我在宏中编写了如下代码,请问问题出在哪里?,

Sub DBL()
i = 1
Do
ActiveDocument.Paragraphs(i).Range.Select
If Trim(Selection.Text) = Chr(13) Or Chr(63) Then
Selection.Delete
Else
Selection.MoveDown
i = i 1
End If
Loop Until i = ActiveDocument.Paragraphs.Count
End Sub

提交回答

全部答案

    2018-11-12 01:39:15
  •   一,替换空格 
    从“编辑”菜单中打开“替换”对话框。把光标定位到“查找内容”文本框中,按一下空格键输入一个空格(默认情况下是半角空格),“替换为”文本框中什么都不填。单击“全部替换”,Word将删除所有的空格。你可能会说怎么我这还有许多空格呀?别急,如果这样的话,那是因为这个文档中还有另外两种空格:全角空格和制表符空格。
      对这两种空格,半角空格是不会把它们当一家人的,所以替换时对它们置之不理。打开中文输入法,按Shift 空格键,切换到全角状态,然后按空格键在“查找内容”框里输入一全角空格,“替换为”为空,再按“全部替换”,所有的全角空格也都删除了。再单击对话框中的“高级”按钮,然后单击“特殊字符”,选择“制表符”,在“查找内容”框中会出现“^t”(当然也可以手工输入),“替换为”为空,再单击“全部替换”,制表符空格也都没了。
      
    二,删除回车和空行 (怎样使每篇文章末尾不允许有多余的回车符?)
    点击菜单栏中的“编辑”→“替换” ,在“查找内容”里面输入^l, “替换为”里面不输入任何字符,然后点“全部替换” ,就可以删除整个文档里面的软回车了。
      
    上面的方法只是把所有的软回车都给删了,可是必要的段落换行还是需要的,所以下面介绍把软回车替换成硬回车。点击菜单栏中的“编辑”→“替换” ,在“查找内容”里面输入^l, “替换为”里面输入^p,然后点“全部替换” 就OK了
    三,清除“Word文档”多余空行
    打开“编辑”菜单中的“替换”对话框,把光标定位在“查找内容”输入框中,按下“高级”按钮,选择“特殊字符”中的“段落标记”两次,在输入框中会显示为“^p^p”,在“替换为”输入框中用上面的方法插入一个“段落标记”,即“^p”,然后按下“全部替换”按键,可删除单行的空行,对于多行空行,可进行重复替换,直到删除全部的空行为止。
      
    在用替换的办法删除空行时要注意两个问题:
    1。分清文件中用的是手动换行符(“Shift 回车”),还是段落标记。“^p^p”替换成“^p”并不能替换所有的空行。如果文件中用的是手动换行符,那么就要用“^l^l”替换成“^l”(这里用的不是1,而是L字母的小写,也可以直接用替换对话框里的“特殊字符”,里面有“有手动换行符”),空行才能去除。
      
    有时遇到这种情况,可能是用手动换行符换行的。可能你也用了“^l^l”替换成“^l”的办法,用“全部替换”时依然提示“Word已完成对文档的搜索并已完成0处替换”这又是为什么呢?为了搞清楚到底问题出在哪里,试试在Word文档中分别用手动换行符和回车符制造一些空行,用“^p^p”替换成“^p”和“^l^l”替换成“^l”来验证,结果能顺利完成空行的删除。
      为什么自己输入的可以替换,网上下载的却不能呢?难道这里面还有“机关”?
    试用手工删除了。在删除的过程中,会发现它的秘密:原来每个空行的换行符前还有一个空格。空格成了折腾人的“罪魁祸首”!再用“^l^l”(注意两个换行之间有一个空格)替换成“^l”,替换终于有成果了。
      单击了几次全部替换,又更改了几次“查找内容”,比如把“^p^l”替换成“^l”。页面中再也没有空行了。看来用替换的方法来删除空行时,要灵活对待查找的内容。
    使用查找替换的办法查找空段标记(点开高级>>特殊标记),然后替换那一栏不填。
      
    四,删除最后1页空白页
    1。如果是回车空行过多造成空白页,很简单删除空行就行了
    2。可以先在空白页上段文字的末尾先点下鼠标,在自动空白页下段文字的开头,按住shift的时候再点下鼠标,选择空白页,再删除 (验证过好用,以下几条未验证)
    3。
      如果是插入分页符造成的空白页,少的话,删除分页符就行,就是到空白页顶部按退格键
    4。如果分页符很多,可以
    编辑》》替换》》高级》》特殊字符》》人工分页符》》全部替换
    就可以了
    5。
      如果是你画了一个表格,占了一整页,造成最后一个回车在第二页删不了,可以将表格缩小一点或者将上面或者下面页边距设小一点,在
    文件》》页面设置
    中,上 下 的数字改小一点!
    6。将鼠标放在前一页的最后,用DEL健删除。
      如果空白面是最后一页,且鼠标在第一行,可选“格式”-“段落”,将这一行的行距设为固定值1磅,该空白页将自动消失。
    --------------------------------------------------------------------
    五 请问哪里有下最新版的word软件?
    你在网上下word时别找word,要找office软件,word是office中的一个软件而已
    很多的
    最新的是2007
    我给你的网址就有,看看评论好的就可以下了
    呵呵,回答的够详细吧
    希望对你有点帮助。
      
    ★。

    字***

    2018-11-12 01:39:15

类似问题

换一换

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):