'カラーテーブルを削除するコード Dim s As String, ss As String Dim t1 As Integer, t2 As Integer s = RithTextBox1.Rtf t1 = s.IndexOf("{\colortbl") If t1 > 0 Then t2 = s.IndexOf("}", t1) 'カラーテーブルが有った場合{の次の}を探す ss = s.Substring(t1, t2 - t1 + 1) '{から}までを切り出す s = s.Replace(ss, "") '{から}の文字を空白に置き換える End If '\cf0:黒 \cf1:タグ内の色(青) \cf2:「<」と「>」(赤) \cf3:コメントタグの色(緑) s = Replace(s, "\viewkind", "{\colortbl ;\red255\green0\blue0;\red0\green0\blue255;\red0\green150\blue0;}" & vbCrLf & "\viewkind") s = Regex.Replace(s, "<(.*?)>", "\cf2<\cf1$1\cf2>\cf0", RegexOptions.IgnoreCase) s = Regex.Replace(s, "<\\cf1!(.*?)\\cf2>", "\cf3<!$1>\cf0", RegexOptions.IgnoreCase) RithTextBox1.Rtf = s