2011-07-05 108 views
2

我嘗試將帶格式的文本插入到Word書籤中。該文本來自多個富文本控件(我們使用TX文本控件)並附加到書籤中。 問題在於標籤是按原樣書寫的並且沒有被解釋。將HTML或RTF格式的文本插入Word書籤

oWord = New Word.Application 
Dim strFileName As String = "\\...\Template.dot" 
oDoc = oWord.Documents.Add(strFileName) 
Dim strText As String = "" 
Dim strOut As String = "" 
txtPart1.Save(strOut, TXTextControl.StringStreamType.RichTextFormat) 
strText += strOut 
strText += ControlChars.CrLf & ControlChars.CrLf & ControlChars.CrLf 
strText += txtPart2.Text 
oDoc.Bookmarks.Item("Conditions").Range.Text = strText 
oWord.Visible = True 

我嘗試使用RTF或HTML格式爲我的字符串,但它是相同的行爲。

回答

2

我完成了一個「不太好」的解決方案:

oWord = New Word.Application 
Dim strFileName As String = "\\...\Template.dot" 
oDoc = oWord.Documents.Add(strFileName) 
Dim strText As String = "" 
txtPart1.Save(strText, TXTextControl.StringStreamType.RichTextFormat) 
Clipboard.SetData(DataFormats.Rtf, strText) 
oDoc.Bookmarks.Item("Conditions").Range.PasteSpecial(DataType:=Word.WdPasteDataType.wdPasteRTF) 

我討厭使用剪貼板插入我的格式化文本的理念(RTF格式,它似乎不是HTML格式的工作),所以我會在接受這個答案之前等待...

相關問題