紧急求救！！如何把html格式转换成rtf格式

[czaoth]

如何把html格式转换成rtf格式
有没有控件可以用的
急！！给位大虾请赐教

[rainstormmaster]

是指html格式文件转换成rtf格式文件吗？

[rainstormmaster]

Option Explicit
'首先加入对 Microsoft Word 9.0 Object Library的引用

'将html文件转为rtf文件，没加错误处理，你自己加吧
Sub htmltortf(ByVal htmlfile As String, ByVal rtffile As String)
Dim WordApp As New Word.Application
WordApp.Documents.Open FileName:=htmlfile, ConfirmConversions:= _
False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto

WordApp.ActiveDocument.SaveAs FileName:=rtffile, FileFormat:= _
wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
WordApp.Quit
Set WordApp = Nothing
End Sub

Private Sub Command1_Click()
'调用
htmltortf "g:\mc\234.htm", "g:\mc\abc.rtf"
End Sub

[rainstormmaster]

其实，根据rtf和htm的文件格式写也是一个不错的主意