呵呵,自己做一个吧,很简单,7行代码:
Dim s1 As String = "查找内容"
Dim s2 As String = "替换内容"
For Each c As Col In CurrentTable.Cols
For Each r As Row In CurrentTable.Rows
If r(c.Name) = s1 Then r(c.Name) = s2
Next