Word批量替换数字1到100

在日常办公或教学工作中，我们经常需要在Word文档中批量替换数字，例如将“第1题”、“第2题”……一直到“第100题”统一格式化或替换为其他内容。本文将介绍几种实用方法，帮助你快速完成此类任务。

方法一：使用通配符+查找替换功能

• 打开Word文档，按下 Ctrl + H 打开“查找和替换”对话框。
• 勾选“使用通配符”选项（在“更多”中）。
• 在“查找内容”中输入：<[0-9]{1,3}>（匹配1~999的数字）。
• 在“替换为”中输入你希望替换成的内容，如“第^&题”可保留原数字。
• 点击“全部替换”即可完成操作。

方法二：借助VBA宏实现自动替换

如果你需要更复杂的逻辑（如仅替换1~100之间的数字），可以使用VBA脚本：

Sub ReplaceNumbers1To100()
    Dim i As Integer
    For i = 1 To 100
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = CStr(i)
            .Replacement.Text = "新内容" & i
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
End Sub

将上述代码粘贴到Word的VBA编辑器（Alt + F11）中运行即可。

注意事项

• 建议先备份原始文档，防止误操作导致数据丢失。
• 若文档中包含表格或特殊格式，替换前请确认是否会影响排版。
• 对于大量文档，可考虑结合“邮件合并”或第三方工具进行批处理。