在日常办公或数据整理过程中,我们经常需要为Word文档中的条目添加统一格式的编号(如:ITEM001、DOC-2025-001 等)。手动逐条添加不仅效率低,还容易出错。本文将介绍几种在Word中实现批量编码的实用方法。
适用于已有固定文本结构的情况:
Ctrl + H 打开替换窗口。这是最灵活高效的批量编码方式:
Alt + F11 打开VBA编辑器。
Sub BatchEncode()
Dim para As Paragraph
Dim i As Integer
i = 1
For Each para In ActiveDocument.Paragraphs
If Trim(para.Range.Text) <> "" Then
para.Range.InsertBefore "CODE-" & Format(i, "000") & " "
i = i + 1
End If
Next para
End Sub
="ITEM"&TEXT(ROW(A1),"000"))生成编号列。