求一个将word文档转换成html的程序,需要完美的转换,急,各位高手帮帮忙!
求一个将word文档转换成html的程序,需要完美的转换,急,各位高手帮帮忙! 问题点数：100、回复次数：7Top
1 楼txh771208（菜鸟）回复于 2003-12-05 08:28:09 得分 0
?Top
2 楼linzhifeng（林知枫）回复于 2003-12-05 08:33:01 得分 0
我只知道拷贝一个方法Top
3 楼jacklinchen（陈）回复于 2003-12-05 08:43:06 得分 0
你将word中用“文件” ---> “另存为web页“ 不就行了Top
4 楼zykj_2000（向MVP努力）回复于 2003-12-05 08:48:04 得分 0
楼上的也有道理Top
5 楼awaysrain（绝对零度)(既然选择了远方就要日夜前行）回复于 2003-12-05 08:52:50 得分 80
要求：1.IE的设置允许（或者提示）对没有标记为安全的ActiveX进行初始化和运行；2.机器上安装了Word；3.在C:\下面存在test.doc文件。
<HTML>
<HEAD>
<TITLE>WalkingPoison's Word-to-HTML sample</TITLE>
<script language=javascript>
function saveword(){
var oWordApp=new ActiveXObject("Word.Application");
var oDocument=oWordApp.Documents.Open("C:\\test.doc");
oDocument.SaveAs("C:\\test.htm", 8)
oWordApp.Quit();
}
</script>
</HEAD>
<BODY>
Click the "save" button to save the file "C:\test.doc" to "C:\test.htm":
<input type=button onclick="saveword()" value=save>
</BODY>
</HTML>
Top
6 楼xieyj（如果有一天...）回复于 2003-12-05 09:09:09 得分 10
这段代码测试过可以转换.
<html>
<head>
<Script language=vbs>
Sub Convert(Source, Target)
Dim wordApp, wordDoc
on error resume next
set wordApp = createobject("Word.Application")
set wordDoc = createobject("word.document")
set wordDoc = wordApp.documents.Open(Source)
wordDoc.saveas Target
if err.number <> 0 then
MsgBox err.Description, 64, ""
exit sub
end if
MsgBox "转换成功！", 64, ""
set wordDoc = nothing
set wordApp = nothing
End Sub
Sub Convertclick
call Convert(txtSource.value, txtTarget.value)
End Sub
</Script>
</head>
<body>
Word File:<input type=file name=txtSource>
Html File SaveAs:<input type=Text name=txtTarget value="c:\test.htm">
<input type=button value="Convert" onclick="vbs:Convertclick()">
</body>
</html>Top
7 楼Tal（Tal）回复于 2003-12-05 09:10:17 得分 10
同意 awaysrain(绝对零度)(明天会更好)Top
