Question

vb 对word进行查找操作，如何对每个查到的字符串进行操作

例如以下代码
With ActiveDocument. Content. Find
.Text = "blue"
.Forward = True
.Execute
If .Found = True Then 执行一段对.text内容的函数操作
End With
这实现的只是对第一个blue进行操作
如何做到对文档中所有的“blue”进行修改
我希望的功能 更具体的来说就是利用通配符查找全文中所有的
T开头的两位数 然后使每个两位数都+1
把每个T开头的两位数都加一个数值很好实现

但是请问 如何写才能做到 对每个查到的符合要求的字符串执行一次 函数呢？

Answer 1

Private Sub WWW1()
Dim sn As Variant, SS As String, I As Integer
Selection.WholeStory
SS = Selection.Text
sn = Split(SS, "*")

For I = 1 To UBound(sn)
sn(I) = Replace(sn(I), sn(I), Val(sn(I)) + 1)
SS = SS & vbCrLf & "T" & sn(I)
Next
Selection.TypeText Text:=SS
End Sub

追问

请问 这个程序是不是要求 目标文件内容必须类似
T54*T31*T16*T21
如果是的话 这种情况太特殊了点
因为目标文档里会有其他文字，符号等
是否还有其他办法

追答

将*改为T

追问

如果目标文件中还存在T123T1T1234这样的字符串是否无法执行？
请问有没有一种对目标文件要求更低的方法？

追答

可以啊，生成的就是：
T124
T2
T1235

追问

。这样就不符合 只修改T开头+两位数字 的要求了 变成T开头的数字字符串

追答

'j加一句长度判断
For I = 1 To UBound(sn)
If Len(sn(I)) = 2 Then
sn(I) = Replace(sn(I), sn(I), Val(sn(I)) + 1)
End If
SS = SS & vbCrLf & "T" & sn(I)
Next