在日常使用 Microsoft Word 编辑文档时,有时我们需要只复制或粘贴“隔行”的内容(例如:只复制奇数行或偶数行)。虽然 Word 本身没有直接提供“隔行复制”功能,但通过一些技巧可以轻松实现这一需求。
适用于纯文本内容,且每行以段落标记结尾的情况:
Ctrl + H 打开“查找和替换”对话框。^13*^13(表示两个段落之间任意内容)。^13(保留一个段落)。=MOD(ROW(),2) 标记奇偶行。适合经常需要此操作的用户:
Alt + F11 打开 VBA 编辑器。
Sub CopyOddLines()
Dim para As Paragraph
Dim newDoc As Document
Set newDoc = Documents.Add
For i = 1 To ActiveDocument.Paragraphs.Count Step 2
newDoc.Content.InsertAfter Text:=ActiveDocument.Paragraphs(i).Range.Text
Next i
MsgBox "奇数行已复制到新文档!"
End Sub