【富文本编辑】怎么把用代码读取到的Word或者text文件内容，赋值到富文本编辑框里面进行编辑并保存为新的文件呢？

想实现读取文本按钮时，就对应将读取到的文本内容赋值到富文本框编辑里

编辑完毕后，想实现打开网页，显示的富文本框编辑里面有内容对应为文件读取后或者修改得到的内容，并且可以单独保存为别的Word文件或者其他格式文件

麻烦老师们帮忙看看谢谢！

富文本编辑采用的是kindeditor

下载信息 [文件大小：下载次数： ]
点击浏览该文件:html编辑器_例子.zip

此主题相关图片如下：001.png

此主题相关图片如下：002.png

打开网页后，网页页面要能够对应显示所得到的编辑框内容当然为空白

此主题相关图片如下：003.png

当前读取文件代码如下：

Dim app As New MSWord.Application

Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")

Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")

try

Dim dlg As New OpenFileDialog

dlg.Filter = "|*.*"

If dlg.ShowDialog =DialogResult.OK Then

Dim fl As String = dlg.FileName

wb2.Address=fl

Dim doc = app.Documents.Open(dlg.fileName)

Dim count = Doc.Characters.Count

Dim rng As MSWord.Range = Doc.Range(Start:=0, End:=count)

t1.text=rng.Text.replace(chr(13), vbcrlf)

End If

app.Quit

catch ex As exception

msgbox(ex.message)

app.Quit

End try

[此贴子已经被作者于2021/1/19 13:17:53编辑过]

主题：【富文本编辑】怎么把用代码读取到的Word或者text文件内容，赋值到富文本编辑框里面进行编辑并保存为新的文件呢？