●在网页上 将Word转换成Html

Question

我本来是用 WORD的 DISPATCH接口来操作的  可是速度很慢  服务器CPU占用出现方波
请问有没有第三方的  Word转换 Html的方法？？？

Answer 1

使用那个webhtmleditor 控件就有这个功能, 很容易的.

Answer 2

这个是什么啊？  是.Net的？  还是Win32 DLL ？  还是COM?

Answer 3

我想通过服务器端来转换如果是客户端转换的话 我自己写个ACTIVE X就可以了

Answer 4

object oMissing =System.Reflection.Missing.Value;
Word.Document mydoc;
Word.Application word_app=new Word.ApplicationClass();
word_app.Visible=true;
word_app.Documents.Add(ref oMissing,ref oMissing,ref oMissing,ref oMissing);
mydoc=word_app.ActiveDocument;
object FileName=MapPath("../files/")+"11.doc";
word_app.Documents.Open(ref FileName,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing,ref oMissing);object missing = System.Reflection.Missing.Value; 
object fileName = MapPath("../files/22.html"); 
object Format = (int)Word.WdSaveFormat.wdFormatHTML; 
mydoc.SaveAs(ref fileName, ref Format,ref missing, ref missing,ref missing,ref missing,ref missing,ref missing,ref missing,ref missing, ref missing,ref missing,ref missing,ref missing,ref missing,ref missing); mydoc.Close(ref oMissing,ref oMissing,ref oMissing);
word_app.Quit(ref oMissing,ref oMissing,ref oMissing);

Answer 5

看看MSDN的Office自动化开发..用Word.Dll开发..效率还是不错的

Answer 6

'********************************************************** 
' 
' 调用方法：doc2html c:\doc2html c:\doc2html 
' 调用方法：doc2html -s c:\doc2html\a.doc c:\doc2html 
' 
'********************************************************** Dim Objword 
Dim Objdoc 
Dim Objfso 
Dim Strsource 
Dim Strtarget 
Dim Bbatch '得到命令行参数，有三种可能的格式：[-s] 要进行转换的源文件目录或文件 转换成Html文件后保存的目录 
Function Getparams() 
Dim Objarg 
If Wscript.Arguments.Count >= 2 Then 
If Wscript.Arguments.Item(0) = "-s" Or Wscript.Arguments.Item(0) = "-S" Then 
Strsource = Wscript.Arguments.Item(1) 
Strtarget = Wscript.Arguments.Item(2) 
Bbatch = False 
Else 
Strsource = Wscript.Arguments.Item(0) 
Strtarget = Wscript.Arguments.Item(1) 
Bbatch = True 
End If 
Else 
Wscript.Quit(1) 
End If 
End Function Function Batchprocessing() 
Dim Objfolder 
Dim Objfile 
Dim Lpos 
Dim Strfilename 
Lpos = 0 
Set Objfolder = Objfso.Getfolder(Strsource) 
For Each Objfile In Objfolder.Files 
Lpos = Instr(1,Mid(Objfile.Path,Len(Objfile.Path) - 3,4),"Doc",1) 
If Lpos > 0 Then 
Strfilename = Objfso.Getbasename(Objfile.Path) 
Wordinterface Objfile.Path,Strfilename 
End If 
Next 
End Function 
Function Singleprocessing() 
Dim Objfile 
Set Objfile = Objfso.Getfile(Strsource) 
Strfilename = Objfso.Getbasename(Objfile.Path) 
Wordinterface Objfile.Path,Strfilename 
End Function Function Wordinterface(Strfilename,Formattedfilename) 
Objword.Documents.Open Strfilename 
Set Objdoc = Objword.Activedocument 
'Stop 
'set The Title Of The Document To Match The Filename 
Objdoc.Builtindocumentproperties(1) = Formattedfilename 
'1 = Wdpropertytitle In Vba Objdoc.Saveas Strtarget & "\" & Formattedfilename & ".htm",8 
'objdoc.Saveas "C:\Doc2Html\" & Formattedfilename & ".htm",8 
On Error Resume Next 
Objdoc.Close 
End Function 'stop 
Set Objfso = Createobject("Scripting.FileSystemObject") 
Set Objword = Createobject("Word.Application") 
Objword.Visible = False 
Call Getparams If Bbatch Then 
Call Batchprocessing 
Else 
Call Singleprocessing 
End If Objword.Quit 
Set Objword = Nothing

Answer 7

http://www.81m.net/NetSuperet/CorpusOpen.asp?Class=网络编程&id=208&CorpusClass=Asp.Net