替换功能不起作用

Question

此替换功能有什么问题？为什么不起作用？

 Sub test()
 MyString = "Armstrong has hamstring injury and his return is questionable"
 Injury = " Hamstring "
 NewString = Replace(MyString, Injury, "$InjType$", vbTextCompare)
 MsgBox (NewString)
 End Sub

预期答案：阿姆斯特朗有$ InjType $伤害并且他的回归值得怀疑

获得的答案：阿姆斯特朗腿筋受伤，他的回归值得怀疑

请帮忙。提前致谢。

Answer 1

这是vbTextCompare参数的错误位置。

您可以使用

NewString = Replace(MyString, Injury, "$InjType$", compare:=vbTextCompare)

或

NewString = Replace(MyString, Injury, "$InjType$", , , vbTextCompare)