只有平平淡淡才是真。

Word中隔行删除的几种办法

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

  • 文件版本: V1.0
  • 开发商: 本站原创
  • 文件来源: 本地
  • 界面语言: 简体中文
  • 授权方式: 免费
  • 运行平台: Win9X/Win2000/WinXP
                                Word中隔行删除的几种办法
在使用Word的时候,如果需要将文档中的内容隔行删除,通常有几下几种办法:牛津英语教研博客gEh JK'X(WxQ!]
  • 隔行多选删除
    9p~G{c n7j$DAy3@9r0按住Ctrl的同时点击欲删除的行,将其全部选定后删除。这种办法只适用于文档内容不多的情况。牛津英语教研博客U&r5so ?
  • 表格文本互换(手动删除)
    2im;cc(kK?b0全选内容,依次点击表格-转换-文本转换为表格,列数为“2”,文字分隔位置为“段落标记”,点击“确定”。
    |~`(A$?#`0
    • 全选第二列,右键-删除列。
      +m Ew$^:wJ0x+t0
    • 全选表格,依次点击表格-转换-表格转换为文本。
      &k`&u*O5X(c,Zr1f|y0
  • 表格文本互换(VBA删除)牛津英语教研博客Fb+s]hS:N1poF
      牛津英语教研博客N2dm]t?
    • 将内容转换为表格,方法参见上一方法;
      I_DgW*g0
    • 在VBA编辑器里写以下代码
      复制内容到剪贴板
      代码:
      Sub test()
      5a|4BJQ3cGn-[}U0  Dim i As Integer牛津英语教研博客Q{cqkg%~mi:yv.iP
        With Selection牛津英语教研博客'B]g"vs/ze
          If .Information(wdWithInTable) Then
      *XH^Df*x0      If MsgBox("是否开始隔行删除内容???", vbOKCancel) = vbCancel Then Exit Sub
      aQZBH'e*|0      i = .Information(wdEndOfRangeRowNumber)牛津英语教研博客VO4bI2mv
            Do While i < Tables(1).Rows.Count
      e$@8h|%M f&~o.ef0        .Tables(1).Rows(i).Delete
      AiW1e"a7L U0        i = i + 1牛津英语教研博客A9N)D4Y6x
            Loop牛津英语教研博客)e_,DZ:t&jY}"kf
          End If
      /u%K!J4m7X0  End With牛津英语教研博客;[ d,K |1I at p
      End Sub
    • 将光标定位于表格第一行,运行代码,可将表格隔行删除。牛津英语教研博客`r%Lw&q8AdC$e
    • 将表格转换为文本。
      -O|ZXX X:xM t0
  • 录制宏实现隔行删除牛津英语教研博客1o:DZ-A+O/b b

      sIkvj[0
    • 将光标定位于第一行行首,开始录制宏;
      4ViSIo7x&v%Uv0
    • 按Shift同时按End,全选第一行,按Del删除,按向下一次,结束录制;
      3g!GBL&zWO\0
    • 为该宏指定一快捷键,按此键即可隔行删除。
      %S |g l$f0

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