I am exporting data from asp.net to word. But when i export i can see html tags in word document.
For example
i want this one
Hi This is your item
but i get it wrong like
<p>Hi This is your item</p>
Dim doc As New Document()
Dim s As Section = doc.AddSection()
Dim dt As New DataTable()
dt.Columns.Add("colum1", GetType(String))
dt.Columns.Add("colum2", GetType(String))
dt.Columns.Add("colum3", GetType(String))
dt.Columns.Add("colum4", GetType(String))
Dim row As DataRow
row = dt.NewRow()
row(0) = "1"
row(1) = "1"
row(2) = "1"
row(3) = "1"
dt.Rows.Add(row)
Dim table As Table = s.AddTable(True)
'Create Header and Data
Dim Header As String() = {"Project Title", "Project Manager", "Project Sponsor", "Status"}
Dim data As String()() = {New String() {row(0), row(1), row(2), row(3)}}
'Add Cells
table.ResetCells(data.Length + 1, Header.Length)
'Header Row
Dim FRow As TableRow = table.Rows(0)
FRow.IsHeader = True
'Row Height
FRow.Height = 23
'Header Format
FRow.RowFormat.BackColor = Color.AliceBlue
For i As Integer = 0 To Header.Length - 1
'Cell Alignment
Dim p As Paragraph = FRow.Cells(i).AddParagraph()
FRow.Cells(i).CellFormat.VerticalAlignment = VerticalAlignment.Middle
p.Format.HorizontalAlignment = HorizontalAlignment.Center
'Data Format
Dim TR As TextRange = p.AppendText(Header(i))
TR.CharacterFormat.FontName = "Calibri"
TR.CharacterFormat.FontSize = 14
TR.CharacterFormat.TextColor = Color.Teal
TR.CharacterFormat.Bold = True
Next
'Data Row
For r As Integer = 0 To data.Length - 1
Dim DataRow As TableRow = table.Rows(r + 1)
'Row Height
DataRow.Height = 20
'C Represents Column.
For c As Integer = 0 To data(r).Length - 1
'Cell Alignment
DataRow.Cells(c).CellFormat.VerticalAlignment = VerticalAlignment.Middle
'Fill Data in Rows
Dim p2 As Paragraph = DataRow.Cells(c).AddParagraph()
Dim TR2 As TextRange = p2.AppendText(data(r)(c))
'Format Cells
p2.Format.HorizontalAlignment = HorizontalAlignment.Center
TR2.CharacterFormat.FontName = "Calibri"
TR2.CharacterFormat.FontSize = 12
TR2.CharacterFormat.TextColor = Color.Brown
Next
Next
doc.SaveToFile("insertTable11537.docx", FileFormat.Docx)
Dim data As String()() = {New String() {row(0), row(1), row(2), row(3)}}
Dim data As String()() = {New String() {"1", "1", "1", "1"}, New String() {"2", "2", "2", "2"}, New String() {"3", "3", "3", "3"}, New String() {"4", "4", "4", "4"}, New String() {"5", "5", "5", "5"}}
Dim rowCount As Integer = dt.Rows.Count
Dim colCount As Integer = dt.Columns.Count
Dim data As String()() = New String(rowCount - 1)() {}
For i As Integer = 0 To rowCount - 1
data(i) = New String(colCount - 1) {}
For j As Integer = 0 To colCount - 1
data(i)(j) = dt.Rows(i)(j).ToString()
Next
Next