Чистка текста RTF
Вы можете наложить числитель или знаменатель на float ...
операции int обычно возвращают int, поэтому вам нужно изменить один из операндов.
3 ответа
Я использовал бы скрытый RichTextBox, установил бы члена Rtf, затем получил бы текстового участника для очистки RTF хорошо поддерживаемым способом. Затем я использовал бы, вручную вводят желаемое форматирование впоследствии.
Можно разделить теги с регулярными выражениями. Просто удостоверьтесь, что Ваши выражения не будут теги фильтра, которые были на самом деле текстом. Если бы текст имел "\b" в теле текста, то это появилось бы как \b в потоке RTF. Другими словами, Вы соответствовали бы на "\b", но не "\b".
Вы могли, вероятно, взять короткий путь и отфильтровать заголовок теги RTF. Ищите первое вхождение "\viewkind4" во входе. Затем читайте вперед в первый пробел. Вы удалили бы все символы от запуска текста до и включая тот пробел. Это разделило бы информацию заголовка RTF (шрифты, цвета, и т.д.).
Я сделал бы что-то как следующее:
Dim unformatedtext As String
someRTFtext = Replace(someRTFtext, "\ul", "[ul]")
someRTFtext = Replace(someRTFtext, "\b", "[b]")
someRTFtext = Replace(someRTFtext, "\i", "[i]")
Dim RTFConvert As RichTextBox = New RichTextBox
RTFConvert.Rtf = someRTFtext
unformatedtext = RTFConvert.Text
unformatedtext = Replace(unformatedtext, "[ul]", "\ul")
unformatedtext = Replace(unformatedtext, "[b]", "\b")
unformatedtext = Replace(unformatedtext, "[i]", "\i")
Clipboard.SetText(unformatedtext)
oWord.ActiveDocument.ActiveWindow.Selection.PasteAndFormat(0)