在日常办公或文档测试中,有时我们需要将某段文字、表格或内容重复多次(例如100次)。手动复制粘贴不仅效率低下,还容易出错。本文介绍几种简单高效的方法,帮助你在 Microsoft Word 中一键实现“复制100次”。
这是最简单且无需编程的方法:
Ctrl + C 复制。#MARK#,然后按回车换行。Ctrl + H 打开“查找和替换”对话框。#MARK#,在“替换为”中输入 ^c^p#MARK#(其中 ^c 表示剪贴板内容,^p 表示段落标记)。✅ 优点:无需代码,适合普通用户。
⚠️ 注意:确保剪贴板内容正确,且临时标记唯一。
如果你熟悉宏或愿意尝试,可以使用以下 VBA 脚本:
Alt + F11 打开 VBA 编辑器。
Sub CopyContent100Times()
Dim i As Integer
Dim originalText As String
If Selection.Type = wdSelectionNormal Then
originalText = Selection.Text
For i = 1 To 100
Selection.Collapse Direction:=wdCollapseEnd
Selection.TypeText Text:=originalText & vbCrLf
Next i
Else
MsgBox "请先选中要复制的文本!"
End If
End Sub
Alt + F8,选择 CopyContent100Times 并运行。✅ 优点:一键完成100次复制。
⚠️ 注意:需启用宏功能,部分安全设置可能阻止运行。
你也可以用记事本、Excel 或在线工具先生成100份内容,再整体粘贴到 Word:
=A1,下拉填充至第100行,复制全部粘贴到 Word。