我在word中要处理很多字母加数字，比如“N.1”，当然有很多，要让它们变成有规则的数字，就像如下：
N.1 N.1 N.1 N.1 N.1 N.1
变成：
N.1 N.1 N.2 N.2 N.3 N.3
或者变成如下：
N.1 N.1 N.11 N.11 N.21 N.21
就是查找和替换的功能，N.1里的1是一个底数，必须有一个底数，底数加一个固定数递增。

先查找到第一个和第二个N.1这两个是不变的，再往下查，查到第三个，把上一次查到的数1调过来加一个固定数(比如10),替换第三个和第四个，再往下查第五个和第六个，再把第三和第四的数调过来加固定数10替换，一真这样下去，一直到文件的结尾（字母是不变的，只有数字在变）。
先谢过各位达人了！！！

Private Sub Command1_Click()
Dim i, j As Integer
Dim a() As String
Dim b As String
b = Text1 & " "
a = Split(b, " ")
For i = 0 To UBound(a) - 1
If i Mod 2 = 0 Then
j = j + 1
a(i) = Mid(a(i), 1, Len(a(i)) - 1) & j
Text2 = Text2 & a(i) & " "
Else
a(i) = Mid(a(i), 1, Len(a(i)) - 1) & j
Text2 = Text2 & a(i) & " "
End If
Next
End Sub

声明一下啦！！