使用 vba 在 MS Access 文本框中用颜色突出显示所选文本

Question

在 ms access 富文本文本框中，我可以选择文本的任何部分，然后会显示一个对话框，然后我可以单击突出显示下拉框中的颜色，文本就会突出显示。我希望能够对 vba 执行相同的操作，但似乎无法获取进行突出显示的语法。我可以使用 selstart 和 sellength 来选择文本，但无法找到突出显示的语法。

[Forms]![myform]![mytextbox].SelText.Highlight = vbGreen

run-time error 424 object required

Answer 1

如果我没记错的话，Access 使用 HTML5 之前的标签。这对我有用：

Private Sub Command54_Click()
Dim strS As String, strM As String
With Me.Text52
.SetFocus
.SelStart = 5
.SelLength = 4
strS = .SelText
strM = "<font color=""red"">" & strS & "</font>"
.Value = Replace(.Value, strS, strM)
End With
End Sub