1.word删除所有奇数行内容
在使用Word的时候,如果需要将文档中的内容隔行删除,通常有几下几种办法:
1、隔行多选删除:
按住Ctrl的同时点击欲删除的行,将其全部选定后删除。这种办法只适 用于文档内容不多的情况。
2、表格文本互换(手动删除):
全选内容,依次点击表格-转换-文本转换为表格,列数为“2”,文字分隔位置为“段落标记”,点击“确定”。
全选第二列,右键-删除列。
全选表格,依次点击表格-转换-表格转换为文本。
3、表格文本互换(VBA删除)
将内容转换为表格,方法参见上一方法;
在VBA编辑器里写以下代码
Sub test()
Dim i As Integer
With Selection
If .Information(wdWithInTable) Then
If MsgBox("是否开始隔行删除内容???", vbOKCancel) = vbCancel Then Exit Sub
i = .Information(wdEndOfRangeRowNumber)
Do While i .Tables(1).Rows(i).Delete
i = i + 1
Loop
End If
End With
End Sub
将光标定位于表格第一行,运行代码,可将表格隔行删除。
将表格转换为文本。
4、录制宏实现隔行删除
将光标定位于第一行行首,开始录制宏;
按Shift同时按End,全选第一行,按Del删除,按向下一次,结束录制;
为该宏指定一快捷键,按此键即可隔行删除。