выделить несколько слов строки внутри richtextbox в форме доступа MS - PullRequest
Новая
       34

выделить несколько слов строки внутри richtextbox в форме доступа MS

0 голосов
/ 01 октября 2019

У меня есть форма доступа MS с richtextbox и текстовым полем. Например, есть следующее утверждение: «Наука о питании изучает, как организм расщепляет пищу (катаболизм) и как он восстанавливает и создает клетки и ткани (анаболизм). Катаболизм и анаболизм в совокупности также могут называться метаболизмом. Наука о питании также исследует, кактело отвечает на пищу "

Я хочу выделить слова в richtextbox (некоторые слова, например: научный анаболизм и обмен веществ), которые я напечатал в текстовом поле. Обратите внимание: я знаю, как выделить одно слово, но хочу выделить несколько слов. Спасибо

1 Ответ

0 голосов
/ 02 октября 2019

Рассмотрим некоторую версию этого: 

Dim aryWords As Variant, x As Integer, strText As String
aryWords = Split("Axxx Bxxx Cxxx", " ")
strText = "LAKJF Axxx kdjf Bxxx KLJALKj Cxxx"
For x = LBound(aryWords) To UBound(aryWords)
    strText = Replace(strText, aryWords(x), "<b>" & aryWords(x) & "</b>")
Next
Debug.Print = strText
...