只有平平淡淡才是真。

Word中隔行删除的几种办法

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

  • 文件版本: V1.0
  • 开发商: 本站原创
  • 文件来源: 本地
  • 界面语言: 简体中文
  • 授权方式: 免费
  • 运行平台: Win9X/Win2000/WinXP
                                Word中隔行删除的几种办法
在使用Word的时候,如果需要将文档中的内容隔行删除,通常有几下几种办法:
yM"P8[!p`oYL0
  • 隔行多选删除
    %[{Tq(xj^9lX0按住Ctrl的同时点击欲删除的行,将其全部选定后删除。这种办法只适用于文档内容不多的情况。牛津英语教研博客Sb#z)?f&o.GQgt
  • 表格文本互换(手动删除)牛津英语教研博客 u7w^|T9I
    全选内容,依次点击表格-转换-文本转换为表格,列数为“2”,文字分隔位置为“段落标记”,点击“确定”。牛津英语教研博客`-`cH)H ubc:\.t
    • 全选第二列,右键-删除列。牛津英语教研博客Qk(dg`!M k
    • 全选表格,依次点击表格-转换-表格转换为文本。
      mXt4g[ |:p0
  • 表格文本互换(VBA删除)
    .zje8nu2R1Mad0
      牛津英语教研博客 K9I"OG~N6L5i
    • 将内容转换为表格,方法参见上一方法;
      0e g)D3_9`)K!I}3c}3t4n0
    • 在VBA编辑器里写以下代码
      复制内容到剪贴板
      代码:
      Sub test()牛津英语教研博客yd1g^X%g
        Dim i As Integer牛津英语教研博客/~y!?pQFR&M/TXL
        With Selection牛津英语教研博客Ei^6r9Z b!JoE
          If .Information(wdWithInTable) Then牛津英语教研博客9fX%[MtUG
            If MsgBox("是否开始隔行删除内容???", vbOKCancel) = vbCancel Then Exit Sub牛津英语教研博客LsK*kr:u~
            i = .Information(wdEndOfRangeRowNumber)牛津英语教研博客H0q"p&m:R
            Do While i < Tables(1).Rows.Count牛津英语教研博客skc;Yb3N
              .Tables(1).Rows(i).Delete牛津英语教研博客9Wzvd$h5~8ZA4R;N
              i = i + 1
      _(SP#W2[0      Loop
      P)A(d3Y$Y+C-x0    End If
      0dIp&sg*E.X;r}'k0  End With
      'l(A~@O0End Sub
    • 将光标定位于表格第一行,运行代码,可将表格隔行删除。牛津英语教研博客/yp$i5Lh&_ L
    • 将表格转换为文本。
      )L6mi,s%Xe0
  • 录制宏实现隔行删除牛津英语教研博客|2o6z"ebV1Y%~awj
      牛津英语教研博客9y&G$Q(RX.M~S
    • 将光标定位于第一行行首,开始录制宏;
      MdB4X0UShS6O5{6\0
    • 按Shift同时按End,全选第一行,按Del删除,按向下一次,结束录制;牛津英语教研博客/o)|.?3?A~I
    • 为该宏指定一快捷键,按此键即可隔行删除。
      c/F b#\+R)D4v0

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