在日常办公或排版工作中,有时我们需要将某段文字、表格或内容在 Word 中重复多次(例如打印标签、制作练习题等)。如果手动复制粘贴100次,不仅效率低下,还容易出错。本文介绍一种使用 Word 宏(VBA)快速实现“一次复制100次”的方法。
方法一:使用 Word 宏(推荐)
- 打开你的 Word 文档,选中需要重复的内容。
- 按
Alt + F11打开 VBA 编辑器。 - 点击菜单栏【插入】→【模块】,粘贴以下代码:
Sub CopyContent100Times() Dim i As Integer Dim original As String original = Selection.Text For i = 1 To 100 Selection.Collapse Direction:=wdCollapseEnd Selection.TypeText Text:=original & vbCrLf Next i End Sub - 关闭 VBA 编辑器,回到 Word。
- 再次选中你要复制的内容,按
Alt + F8,选择CopyContent100Times并运行。
运行后,选中的内容将被自动粘贴100次,每次换行显示。
注意事项
- 请确保启用宏功能(文件 → 选项 → 信任中心 → 启用宏)。
- 如需复制其他次数,只需修改代码中的
100为任意数字即可。 - 此方法适用于 Microsoft Word(Windows 版),Mac 版本可能略有差异。
方法二:使用文本编辑器辅助(无宏环境)
如果你无法使用宏,也可以借助记事本或在线文本工具:
- 将内容复制到记事本中。
- 使用支持“重复粘贴”的在线工具(如文本重复生成器),生成100份副本。
- 再将结果粘贴回 Word 中。
虽然不如宏高效,但在受限环境中仍可作为备选方案。