Word如何一次粘贴100次？

在日常办公中，有时我们需要将一段文字或内容重复粘贴多次（例如100次）。如果手动操作，不仅耗时还容易出错。本文介绍一种使用VBA宏的方法，让你一键完成批量粘贴。

方法：使用VBA宏实现批量粘贴

请按以下步骤操作：

1. 打开你的 Word 文档，并复制你想要重复粘贴的内容（确保已复制到剪贴板）。
2. 按下 Alt + F11 打开 VBA 编辑器。
3. 点击菜单栏的【插入】→【模块】，粘贴下方代码：

Sub PasteMultipleTimes()
    Dim i As Integer
    Dim times As Integer
    times = 100 ' 修改此处可调整粘贴次数

    For i = 1 To times
        Selection.PasteAndFormat (wdPasteDefault)
        Selection.TypeParagraph ' 每次粘贴后换行（可选）
    Next i
End Sub

4. 关闭 VBA 编辑器，回到 Word 文档。

5. 将光标定位到你想开始粘贴的位置。

6. 按下 Alt + F8，选择 PasteMultipleTimes 宏并点击“运行”。

注意事项

• 首次使用宏可能需要启用宏功能（文件 → 选项 → 信任中心 → 启用宏）。
• 如果你不需要每次粘贴后换行，可以删除代码中的 Selection.TypeParagraph 行。
• 该方法适用于 Microsoft Word（Windows 版本），Mac 版本支持可能有限。

替代方案：使用文本编辑器生成后再粘贴

如果你不想使用宏，也可以借助记事本或在线工具先生成100份文本，再一次性粘贴进 Word。例如在 VS Code 或 Notepad++ 中使用多行编辑功能快速复制100次。