替换文本框中的文本

Question

有没有办法替换文本框中的文本，例如参见下文。我目前正在使用这个，但在VBA中似乎不太适用。

If TextBox6.Text.Contains("<GTOL-PERP>") Then 
    TextBox6.Text = TextBox6.Text.Replace("<GTOL-PERP>", "j") 
End If 

Answer 1

.Text是VBA中的字符串属性。字符串不是VBA中的对象，因此在处理它们时需要使用字符串函数而不是方法。请看下图：

If instr(TextBox6.Text, "<GTOL-PERP>") Then 
TextBox6.Text = replace(TextBox6.Text, "<GTOL-PERP>", "j") 
End If 

A List of String Functions in VBA

编辑实际上，你可以跳过IF因为更换（）如果文本不是字符串中不会引发错误。