【富文本编辑】怎么把用代码读取到的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编辑过]

看看这个例子：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49051&replyID=&skin=1

经过学习，没有弄明白呢红色部分失效麻烦老师多多指导下谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:西瓜百例之编辑器 (1).foxdb

瓜哥百例之编辑器的全部代码：

表事件

表A_PrepareEdit

e.Cancel = True

表A_DoubleClick

Forms("瓜哥百例之编辑器").open()

窗口与控件事件

瓜哥百例之编辑器_AfterLoad

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

'web.OfficeToolBar = True

web.Address = "http://qqzg.org/mysystem/editor/examples/default.html" ‘这个地址失效，我实在没有看懂这个是啥实现的’

e.Form.Controls("TextBox1").text = Tables("表A").current("第一列")

e.Form.TimerEnabled = True

e.Form.TimerInterval = 500

瓜哥百例之编辑器_Button1_Click

Tables("表A").current("第一列")=e.Form.Controls("TextBox1").text

Tables("表A").current.save()

Vars("编辑器校验")=0

e.Form.close

瓜哥百例之编辑器_Button2_Click

Vars("编辑器校验")=0

e.Form.close

瓜哥百例之编辑器_TimerTick

If e.form.ExistControl("WebBrowser1") Then

If e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames.Count > 0 Then

If Vars("编辑器校验")=0 Then

e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml = Tables("表A").current("第一列")

Vars("编辑器校验")=1

End If

e.Form.Controls("TextBox1").text = e.form.controls("WebBrowser1").basecontrol.Document.Window.Frames(0).Document.body.InnerHtml

End If

改为自己本机的html编辑器网页地址

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