只有平平淡淡才是真。

Word中隔行删除的几种办法

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

  • 文件版本: V1.0
  • 开发商: 本站原创
  • 文件来源: 本地
  • 界面语言: 简体中文
  • 授权方式: 免费
  • 运行平台: Win9X/Win2000/WinXP
                                Word中隔行删除的几种办法
在使用Word的时候,如果需要将文档中的内容隔行删除,通常有几下几种办法:牛津英语教研博客#k\ZI!v p{
  • 隔行多选删除
    '~!q C5u#@"N.YjY0按住Ctrl的同时点击欲删除的行,将其全部选定后删除。这种办法只适用于文档内容不多的情况。牛津英语教研博客*N7F0Arh}Yf
  • 表格文本互换(手动删除)
    {HFq"v!y)C0全选内容,依次点击表格-转换-文本转换为表格,列数为“2”,文字分隔位置为“段落标记”,点击“确定”。牛津英语教研博客&Me~i VS.G
    • 全选第二列,右键-删除列。
      .]8`U3B1R\V-x&F5o0
    • 全选表格,依次点击表格-转换-表格转换为文本。牛津英语教研博客)~t|pJlA;xa*m
  • 表格文本互换(VBA删除)
    Y#wF:D x_0

      #B"fzg2R+^+Up0
    • 将内容转换为表格,方法参见上一方法;牛津英语教研博客 f7| Q T9P
    • 在VBA编辑器里写以下代码
      复制内容到剪贴板
      代码:
      Sub test()
      %iN-_^G6K0?e0  Dim i As Integer牛津英语教研博客 h&t&Q,b [#nao? l
        With Selection牛津英语教研博客7U ~9^*Uf
          If .Information(wdWithInTable) Then
      7Tb/j] Z S0      If MsgBox("是否开始隔行删除内容???", vbOKCancel) = vbCancel Then Exit Sub
      c'j'D O3t]D0      i = .Information(wdEndOfRangeRowNumber)牛津英语教研博客*ImC_/l:[Y6H~
            Do While i < Tables(1).Rows.Count
      (S Td9J9i0        .Tables(1).Rows(i).Delete
      M iY1wMVrR0        i = i + 1
      "t*|B)Mx_P6r0      Loop牛津英语教研博客!dr5|4Y6{5ILe:~%c1K
          End If
      i*Mad6oW(HRV#@0  End With
      {#puIU3S%G0End Sub
    • 将光标定位于表格第一行,运行代码,可将表格隔行删除。
      u^)p HE$X,x i^0
    • 将表格转换为文本。
      R6?1W*M` ?']^2bu0
  • 录制宏实现隔行删除
    SK3T1_'W"n0
      牛津英语教研博客n4Z1[/ML~
    • 将光标定位于第一行行首,开始录制宏;
      (XN:[ XIN,l8sH D}.E0
    • 按Shift同时按End,全选第一行,按Del删除,按向下一次,结束录制;牛津英语教研博客;Q,i X8L,z hI
    • 为该宏指定一快捷键,按此键即可隔行删除。牛津英语教研博客Wo+W7z4utZP

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