只有平平淡淡才是真。

Word中隔行删除的几种办法

上一篇 / 下一篇  2008-03-01 21:05:09

  • 文件版本: V1.0
  • 开发商: 本站原创
  • 文件来源: 本地
  • 界面语言: 简体中文
  • 授权方式: 免费
  • 运行平台: Win9X/Win2000/WinXP
                                Word中隔行删除的几种办法
在使用Word的时候,如果需要将文档中的内容隔行删除,通常有几下几种办法:牛津英语教研博客M:R_7y,Bo'?~
  • 隔行多选删除
    1i5pR@)m%Em0按住Ctrl的同时点击欲删除的行,将其全部选定后删除。这种办法只适用于文档内容不多的情况。
    n4Y l_.Z0
  • 表格文本互换(手动删除)
    H6bZ ^U7b0dfm0全选内容,依次点击表格-转换-文本转换为表格,列数为“2”,文字分隔位置为“段落标记”,点击“确定”。
    (E| DA*K+iEw ec0
    • 全选第二列,右键-删除列。
      GS,Q}tv T$Z0
    • 全选表格,依次点击表格-转换-表格转换为文本。牛津英语教研博客d)dhc7o
  • 表格文本互换(VBA删除)牛津英语教研博客Y-a!bG7i
      牛津英语教研博客Q IBL-jb~1bd"m
    • 将内容转换为表格,方法参见上一方法;牛津英语教研博客3BX?!|:lZW
    • 在VBA编辑器里写以下代码
      复制内容到剪贴板
      代码:
      Sub test()牛津英语教研博客tJ6SIei|4d5p`'m5[X)p7J
        Dim i As Integer牛津英语教研博客4E(H$ju'G3|#l.l0`
        With Selection
      9?,L5bB T)v)N P0    If .Information(wdWithInTable) Then
      uoA)G.?v0      If MsgBox("是否开始隔行删除内容???", vbOKCancel) = vbCancel Then Exit Sub
      /S9^7d8P7nO7Q2X0      i = .Information(wdEndOfRangeRowNumber)牛津英语教研博客+M9y-Agf^ A]
            Do While i < Tables(1).Rows.Count牛津英语教研博客h,a%s8`!DB\ `CY
              .Tables(1).Rows(i).Delete
      9j1ehL,_lH2F7dB^0        i = i + 1
      w:e:]vYy0      Loop牛津英语教研博客rI B:a!e0e*l]
          End If牛津英语教研博客8`sA~6n0n.z+[
        End With
      ST:Q mM0End Sub
    • 将光标定位于表格第一行,运行代码,可将表格隔行删除。
      QT ]XZy0
    • 将表格转换为文本。牛津英语教研博客EC.OY)_ KB_r
  • 录制宏实现隔行删除牛津英语教研博客2lU!e3vf]hp

      ;g:{iUe ^r!}0
    • 将光标定位于第一行行首,开始录制宏;牛津英语教研博客 P+dk F#qB ~
    • 按Shift同时按End,全选第一行,按Del删除,按向下一次,结束录制;牛津英语教研博客/X6R6n*b;TEX~
    • 为该宏指定一快捷键,按此键即可隔行删除。牛津英语教研博客 J%}K6e4x:\x

TAG:

引用 删除 Guest   /   2010-08-12 14:33:14
-1
 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

Open Toolbar