在使用 Microsoft Word 编辑文档时,有时我们需要隔行(例如选中第1、3、5行)来复制、删除或格式化特定内容。虽然 Word 默认不支持直接“隔行选择”,但通过以下几种方法可以轻松实现。
如果你需要隔行但连续地选择部分内容(比如每隔一行选几个字),可结合 Shift + 上/下方向键 进行微调,再配合 Ctrl 取消不需要的部分。
对于大量数据处理,可使用 Word 宏自动选中奇数行或偶数行:
Sub SelectOddLines()
Dim para As Paragraph
Dim rng As Range
Set rng = Nothing
For Each para In ActiveDocument.Paragraphs
If para.Range.Information(wdFirstCharacterLineNumber) Mod 2 = 1 Then
If rng Is Nothing Then
Set rng = para.Range
Else
rng.MoveEnd wdParagraph, 1
End If
End If
Next para
If Not rng Is Nothing Then rng.Select
End Sub