看看这段代码有什么问题,谢谢!

Question

兄弟:
看看这段代码有什么问题,谢谢!
Private Sub mnuSearchFind_Click()
sFind = InputBox("查找内容：", , sFind)ActiveForm.rtfText.Find sFind
End Sub这是一个多文档的查找功能!
但是不知道怎么把查找到的东西用反色显示!
ActiveForm.rtfText.Find sFind
这句代码好像有问题,我不知怎么修改!
rtftext是一个richtextbox

Answer 1

RichTextBox1.SetFocus
RichTextBox1.SelLength = 5
RichTextBox1.SelColor = vbRed

Answer 2

文字查找:你可以将RTF读入到变量,用VBA涵数查找.
RichTextBox1.selstart=起始位置
RichTextBox1.SelLength = 长度
RichTextBox1.SelColor = 文字颜色