只有平平淡淡才是真。

Word中隔行删除的几种办法

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

  • 文件版本: V1.0
  • 开发商: 本站原创
  • 文件来源: 本地
  • 界面语言: 简体中文
  • 授权方式: 免费
  • 运行平台: Win9X/Win2000/WinXP
                                Word中隔行删除的几种办法
在使用Word的时候,如果需要将文档中的内容隔行删除,通常有几下几种办法:牛津英语教研博客,u;n-nT+w:?T+Aw
  • 隔行多选删除牛津英语教研博客*j ThHG~
    按住Ctrl的同时点击欲删除的行,将其全部选定后删除。这种办法只适用于文档内容不多的情况。
    ?/j.b\&m0
  • 表格文本互换(手动删除)牛津英语教研博客+Z\#]R?v J7J0n
    全选内容,依次点击表格-转换-文本转换为表格,列数为“2”,文字分隔位置为“段落标记”,点击“确定”。
    %L Z)t M"gvTw0
    • 全选第二列,右键-删除列。
      1xl~!~s.|0
    • 全选表格,依次点击表格-转换-表格转换为文本。牛津英语教研博客%M?-GC-^8H!u*o
  • 表格文本互换(VBA删除)牛津英语教研博客(A n Jfi-|*dJo*h
      牛津英语教研博客it&\ {,g*o
    • 将内容转换为表格,方法参见上一方法;牛津英语教研博客'ybs ~?i
    • 在VBA编辑器里写以下代码
      复制内容到剪贴板
      代码:
      Sub test()牛津英语教研博客,| JY'u5P
        Dim i As Integer牛津英语教研博客 X9T:p)oLX.zzN"\
        With Selection牛津英语教研博客)Zf$m$`)n9I LS
          If .Information(wdWithInTable) Then
      T&l,S7p0E*z(X@e{4@G7M0      If MsgBox("是否开始隔行删除内容???", vbOKCancel) = vbCancel Then Exit Sub
      8l?2oF@rf0      i = .Information(wdEndOfRangeRowNumber)牛津英语教研博客s7S&^ A8i
            Do While i < Tables(1).Rows.Count牛津英语教研博客fD%z?kp~&r.m
              .Tables(1).Rows(i).Delete牛津英语教研博客pV|$@jLx{ U8\+Rv
              i = i + 1牛津英语教研博客!H*E6NEC
            Loop
      [?~aVr\-z0    End If
      ,c4_g:J&X _^0  End With
      lkmVC+T0End Sub
    • 将光标定位于表格第一行,运行代码,可将表格隔行删除。牛津英语教研博客+`E.]7N%L-I;u-l
    • 将表格转换为文本。牛津英语教研博客e&q(|+B*}0f'P
  • 录制宏实现隔行删除
    l(fk'w(?"[.KC`0

      (VX0c?'TaI)~0
    • 将光标定位于第一行行首,开始录制宏;
      _#|k6O+[L#Zv_2t0
    • 按Shift同时按End,全选第一行,按Del删除,按向下一次,结束录制;
      9Yt(c7iC0
    • 为该宏指定一快捷键,按此键即可隔行删除。
      ;z2y5hv+r'it5j0

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