只有平平淡淡才是真。

Word中隔行删除的几种办法

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

  • 文件版本: V1.0
  • 开发商: 本站原创
  • 文件来源: 本地
  • 界面语言: 简体中文
  • 授权方式: 免费
  • 运行平台: Win9X/Win2000/WinXP
                                Word中隔行删除的几种办法
在使用Word的时候,如果需要将文档中的内容隔行删除,通常有几下几种办法:
PH}0Q$pO0
  • 隔行多选删除牛津英语教研博客6e P%n+v {,C"Cb0@3ST
    按住Ctrl的同时点击欲删除的行,将其全部选定后删除。这种办法只适用于文档内容不多的情况。牛津英语教研博客6X%xO7O^ L4^
  • 表格文本互换(手动删除)
    $B L p}7l3Bi7?b0全选内容,依次点击表格-转换-文本转换为表格,列数为“2”,文字分隔位置为“段落标记”,点击“确定”。
    W}5h X;]B(X][0
    • 全选第二列,右键-删除列。
      TE~,NP`']0
    • 全选表格,依次点击表格-转换-表格转换为文本。牛津英语教研博客 n7i@7@W+B
  • 表格文本互换(VBA删除)牛津英语教研博客5r&Zd;nGF?
      牛津英语教研博客2Q]2Su-R+G E
    • 将内容转换为表格,方法参见上一方法;牛津英语教研博客:u1~hb9t^sT:k
    • 在VBA编辑器里写以下代码
      复制内容到剪贴板
      代码:
      Sub test()牛津英语教研博客-l"`F Y6?!j
        Dim i As Integer
      V2Khe}|t0  With Selection牛津英语教研博客\8`+~%k$BBrgZS
          If .Information(wdWithInTable) Then牛津英语教研博客? F\\"m"{_
            If MsgBox("是否开始隔行删除内容???", vbOKCancel) = vbCancel Then Exit Sub
      5H)T!s`:D4H5eK0C0      i = .Information(wdEndOfRangeRowNumber)
      $ZN,s%Yv%G$I[0      Do While i < Tables(1).Rows.Count
      'P"Xy |i0        .Tables(1).Rows(i).Delete
      3Kb N;C@ A?0        i = i + 1牛津英语教研博客*V8wHY/_|]}1F
            Loop
      0O(c!C!wz NLu UH0    End If牛津英语教研博客^VfeP
        End With牛津英语教研博客t$ie6I!D+L/T
      End Sub
    • 将光标定位于表格第一行,运行代码,可将表格隔行删除。
      e#[ F s1VC2O`0
    • 将表格转换为文本。牛津英语教研博客@C0xT:l%N_!}+cmX
  • 录制宏实现隔行删除
    9NdN&j0z3D&I3p3s0

      8n7z9jM!^k!h1v!SU0
    • 将光标定位于第一行行首,开始录制宏;牛津英语教研博客G {8QK.i k J$i
    • 按Shift同时按End,全选第一行,按Del删除,按向下一次,结束录制;
      7cE1K5Gy*|aS@0
    • 为该宏指定一快捷键,按此键即可隔行删除。牛津英语教研博客4II}j+IpJZW u

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