请各们帮帮忙，看看如下用word宏来完成,程序怎么写：
abab1
abab1
abab1
abab1
......

变成如下

abab1
abab1 #1+2=以下数3
abab3
abab3 #3+2=以下数5
abab5
abab5 #5+2=以下数7
abab7
abab7
.......

在abab1基数上查找替换,一直到文件的结尾.
谢谢各位了！！！！

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

[此贴子已经被作者于2005-11-27 20:30:59编辑过]

谢谢slore版主,但是不能在word里用宏完成，我想实现的是我下面的想法：

我在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替换，一真这样下去，一直到文件的结尾（字母是不变的，只有数字在递增）。
查找的这个N.1是在应用过程中会变的，或者是nmber1,或者是abab1，还有是那个固定数也是要变的，有的时候是68，有的时候是90，是不定的，要看这个文件怎么用。
原来我要用计算器加到好几千万，所以要用很长时间。你看一下我底下的这段小程序。

另一个帖子里发过了

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "abab1"
.Replacement.Text = "abab4"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection.Find
.Text = "abab1"
.Replacement.Text = "abab7"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
#怎么实现自动变成abab4和下面的abab7,它们是加3所得，怎么让这个程序循环下去

空格已经没了。。。我开始用了str转换i和i+1
发现我用的的 & 所以不用转，所以空格也就没了。

帮我小弟减减减肥吧！！呵呵！！！！

必须是完我上面写的程序走下去，我刚用了你发给我的另一个小程序，还是不行，因为我用的文件里面是ab=1，你的程序我不能去改，我现在刚开始学也改不了

ab=1和abab1一样啊

不一样的，你看一下我要做的吧！！你在宏里运行一下你写的程序，过程是错误的

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

…………

上面是我现在每天要处里的数据，下面是我处理好的，用计算器一个一个算出来的，哈哈！！！把上面的复制到 word文件里面，写一个宏文件，试一试，你可以编好给我吗？把word文件和宏全发过来我试一下，

Range("A1").Select

&page=1", _

Range("A1"))

&page=1_1"

Range("A3").Select

&page=2", _

Range("A3"))

&page=2_1"

Range("A5").Select

&page=1", _

Range("A5"))

&page=1_1"

Range("A7").Select

&page=3", _

Range("A7"))

&page=3_1"

Range("A9").Select

&page=4", _

Range("A9"))

&page=4_1"

Range("A11").Select

&page=5", _

Range("A11"))

&page=5_1"

Range("A13").Select

&page=6", _

Range("A13"))

&page=6_1"

Range("A15").Select

&page=7", _

Range("A15"))

&page=7_1"