首页 / 教程

wps删除奇数行 | word删除所有奇数行内容

2022-12-19 01:58:00

在使用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删除，按向下一次，结束录制；

为该宏指定一快捷键，按此键即可隔行删除。

wps如何删除奇数行