如何在RichTextBox中分析字体（逐字）

Question

我需要一些帮助

如今，这是我的情况：

RichTextBox.Text = "xxxxy xyxx yxxx yyxy" 'letters y are strikeouted

这段代码只是为了说明，我所有的罢工字母都是RANDOM

我找到的“解决方案”是：

Dim word() As String
Dim tbx As RichTextBox
Dim i as Integer
word = rxtFrase.Text.Split(" ")
For i = 0 To word.Length Step 1
    tbx.Text = word(i)

然而，当我将我的句子整理成单词（Strings）时，我丢失了我的参数Font，我必须分别分析每个单词的字体。

有人可以帮助我吗？