一、如何在word里有规律的替换数字
Sub Macro1()
Dim nStr As String, Str1 As String, Str2 As String
Dim I As Long, M As Long, N As Long, S As Long
Str1 = "dddd" '待替换的字符
N = Len(Str1)
nStr = ActiveDocument.Range.Text
Do
S = InStr(S + 1, nStr, Str1)
If S = 0 Then Exit Do
I = I + 1
Str2 = I
M = 4 - Len(Str2)
If M > 0 Then Str2 = String(M, "0") & Str2
nStr = Left(nStr, S - 1) & Str2 & Mid(nStr, S + N)
S = S + N - 1
Loop
ActiveDocument.Range.Text = nStr
End Sub
二、word怎么改变自动编号数值
1、在word中的某行开始输入数字，然后编辑该段文字，按回车后系统会自动生成下一个编号
2、继续编辑每一段，编辑完成后按回车，下一段开头都会出现系统给出的自动编号4
3、如果想改变序号的数字可以双击刚刚生成的自动出现的编号，在弹出的项目符号和编号中点按重新开始编号，那么刚才出现的编号会变成1
4、点按确定，观察刚才自动出现的编号4经过重新编号的设置已经变为了编号1，继续编辑此段文字按回车会出现编号2
5、为了方便检测只打了三个字之后按下回车此时编号2自动出现在新行开始的位置
6、如果想任意改变编号的数字，依然可以双击该编号，然后在弹出的项目符号和编号对话框中点按箭头指向的自定义按钮
7、在自定义编号列表对话框中的起始编号出选择想要显示的编号，从上下拉按钮选就可以这里选的是5 然后按一下确定按钮
8、此时编号4变成了编号5 输入一段文字后再次按回车下一段出现了编号6 编号的性质是这样的如果不主动设置编号是一次按顺序出现的
三、word里面批量替换数字
如果要批量修改的话，WORD里面没有这个功能。
可以在EXCEL里面完成，前提下是你这些数字必须在表格上，并且每一个数字占一个单元格，最好是同一列，然后复制到EXCEL里面，如数据在A列，将数据用公式转换到B列即可，如A1＝42.01，那B1＝A1+0.01,B1就会=42.02，然后在B1单元格右下角拖动，就可完成批量修改。如果A1＝42.99，那B1＝A1+0.01，B1就会等于43.00.
这个肯定可以的.耐心试试哦.
