UC知道如何在word里有规律的替换数字
来源：百度知道 编辑：UC知道 时间：2024/05/04 17:46:56
我想吧word里的固定字符比如dddd替换成数字，每替换一次数字自动+1.如：0001、0002、0003、0004……请问如何操作？
用VBA具体怎么实现呢？如附上代码还会增加分的！
用VBA具体怎么实现呢？如附上代码还会增加分的！
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