Question

250分最高分,VB挑战性问题,求拿WORD中的组件将RTF转HTML的方法

拿出WORD中的组件,将RichTextBox1中内容(包括设置了文字字号\文字大小\文字颜色\粗体等属性的文本)转为HTML的方法.同时将HTML文本转为RTF格式,在RichTextBox2中显示的方法.

求详细方法和源代码.

请勿复制网上一些有问题的函数作为答案.谢谢.
RichTextBox1内容转为HTML格式文本用于存入数据库.而HTML文本又可读出于RichTextBox2中显示.

需要转换后的HTML可用于直接存入数据库,而不是打开某个文件另存为.

Answer 1

新建vb工程
添加引用
Microsoft Word 11.0 Object Library
根据你电脑上word版本的不同，这个组件的版本号可能不一样

添加控件
对话框Microsoft Common Dialog Control 6.0
Microsoft Rich TextBox Control 6.0（sp4），如果你的VB版本更高，这个的版本也可能不一样

然后添加两个RichTextBox和两个按钮，添加一个对话框
复制以下代码

Private Sub Command2_Click()
On Error GoTo ERRPROC
Dim x As Word.Application
Set x = New Word.Application
x.Visible = True
x.ChangeFileOpenDirectory App.Path
x.Documents.Add
With x.ActiveDocument
Clipboard.Clear
Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
.Content.Paste
Clipboard.Clear
.SaveAs "tmp.html", wdFormatFilteredHTML, False, "", False, "", False, False, False, False, False
x.Quit
Set x = Nothing
End With
RichTextBox2.LoadFile App.Path & "\tmp.html"
Exit Sub
ERRPROC:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub

Private Sub Command1_Click()
CommonDialog1.filename = ""
CommonDialog1.Filter = "RichTextFile(*.rtf)|*.rtf|Word File(*.doc)|*.doc"
CommonDialog1.ShowOpen
If CommonDialog1.filename <> "" Then RichTextBox1.LoadFile CommonDialog1.filename

End Sub

Private Sub Command3_Click()
On Error Resume Next

End Sub

Private Sub Form_Load()
On Error Resume Next
Dim x As Word.Application
Set x = New Word.Application
If Err.Number = 429 Then
MsgBox "您的系统未正确安装ms word！", vbCritical, "ERROR"
End
End If
x.Quit
Set x = Nothing
Command1.Caption = "打开"
Command2.Caption = "保存为HTML并显示"
Command3.Caption = "在浏览器中打开" '这个没做，自己搞了
End Sub

Answer 2

private void Button1_Click(object sender, System.EventArgs e)
{
//ExportToWord();
//**********************************将整个页面内容导出到Word中
Response.Clear();
Response.Buffer= true;
Response.Charset="GB2312";
Response.AppendHeader("Content-Disposition","attachment;filename=FileName.rtf");
Response.ContentEncoding=System.Text.Encoding.GetEncoding("GB2312");//设置输出流为简体中文
Response.ContentType = "application/RTF";//设置输出文件类型为word文件。
}Top

Answer 3

试试下面的代码

private void Button1_Click(object sender, System.EventArgs e)
{
//ExportToWord();
//**********************************将整个页面内容导出到Word中
Response.Clear();
Response.Buffer= true;
Response.Charset="GB2312";
Response.AppendHeader("Content-Disposition","attachment;filename=FileName.rtf");
Response.ContentEncoding=System.Text.Encoding.GetEncoding("GB2312");//设置输出流为简体中文
Response.ContentType = "application/RTF";//设置输出文件类型为word文件。
}Top

Answer 4

新建vb工程
添加引用
Microsoft Word 11.0 Object Library
根据你电脑上word版本的不同，这个组件的版本号可能不一样

Answer 5

不会
会的可也没空给你做，除非你给工资