vb.net Создание документа, обработка большего и меньшего, чем символы в Word

Question

Мы используем редактор TinyMCE для хранения Rich Text в базе данных MS SQL.

При использовании «<» & «>» символы TinyMCE преобразует их в символы с экранированным HTML & lt; и & gt; Пример: <p>&lt;This is some test information then sometime I use this&gt;</p>

Мы пытаемся экспортировать эти символы в документ Microsoft Word с использованием автоматизации документов, однако символы не отображаются в документе.

Function PreFormatHTML(ByVal html As String) As String 

     If String.IsNullOrEmpty(html) Then Return html 

     html = WebUtility.HtmlDecode(html) 

     Return html 

    End Function 

Dim SumRng As Word.Range = objWordDoc.Bookmarks.Item("bSummary").Range 

SumRng.Text = PreFormatHTML(GeneralComponent.CheckReadNull(SqlReader.Item("Summary"))) 

Это также не работает. Я использую текстовый редактор Word 2013 и TinyMCE.

Любые предложения?

Answer 1

Не видя полную html я могу только сделать предположение, однако, что я предложил бы использовать WebUtility.HtmlDecode:

Преобразует строку, которая была HTML-закодированной для передачи HTTP в расшифрованную строку.

Это, как вы бы использовать:

html = WebUtility.HtmlDecode(html) 

С Word это, как я испытал:

Dim s As String = "<this is some text and I'm wondering what to do>" 

Dim wrd As New Word.Application 
Dim doc As Word.Document = wrd.Documents.Add() 
Dim para As Word.Paragraph = doc.Content.Paragraphs.Add() 

para.Range.Text = WebUtility.HtmlDecode(s) 

Это то, что текст выглядит в моем Document:

Отредактировано согласно комментарий OP в:

Dim s As String = "<p>&lt;This is some test information then sometime I use this&gt;</p>" 

Dim wrd As New Word.Application 
Dim doc As Word.Document = wrd.Documents.Add() 
Dim para As Word.Paragraph = doc.Content.Paragraphs.Add() 

para.Range.Text = WebUtility.HtmlDecode(s) 

Этот код производит следующий вывод в моем Document:

Отредактировано согласно обновления OP на вопрос:

Я создал документ под названием test.docx и добавил закладку под названием bSummary. Я сделал это, пытаясь воспроизвести код OP.

Dim s As String = "<p>&lt;This is some test information then sometime I use this&gt;</p>" 

Dim wrd As New Word.Application 
Dim doc As Word.Document = wrd.Documents.Open("C:\test.docx") 

Dim SumRng As Word.Range = doc.Bookmarks.Item("bSummary").Range 
SumRng.Text = PreFormatHTML(s) 

Выход такой же, как указано выше. Это заставляет меня думать, что все, что передается в PreFormatHTML, не так, как вы думаете. Is GeneralComponent.CheckReadNull(SqlReader.Item("Summary"))) переходит в PreFormatHTML следующую строку; <p>&lt;This is some test information then sometime I use this&gt;</p>?

ОП подтвердил, что HTML возвращается из PrrFormatHTML, как ожидалось. Проблемы, похоже, связаны с Document. Это может быть связано с версией Word Interop, которую использует OP. Я использую Microsoft Word 16.0 Object Library, в то время как OP использует Microsoft Word 15.0 Object Library.