DOC转HTML,高分回赠解决者!
如何将一个DOC文件转换HTML文件呢?
前提(要求达到百分之九十九以上与DOC的版式,即文字要求效果不变,图片位置不变,什么围绕方式不变)
本人尝试用WORD直接导出WEB页,但出现大面积的"失真",
也用过Word2CHM1,但此软件限制条件大,而且不像其说,能百分百导出WEB页..
那人有这方面的经验.请告诉小弟,若问题得到解决,必高分回赠!!!
问题点数：100、回复次数：29Top
1 楼cadust（寸寒）回复于 2005-07-02 09:50:12 得分 0
毕竟WORD不是专用的网页制作工具，肯定有不好用的地方，楼主还是用DW之类的改吧Top
2 楼cadust（寸寒）回复于 2005-07-02 09:51:35 得分 0
对了，在WORD中尽量不要用Tab做格式，会有影响Top
3 楼suspension（临界悬浮）回复于 2005-07-02 09:58:53 得分 0
转载:
'********************************************************************************
'* WRITTEN BY: GARETH WATSON *
'* DATE: 06/08/2002 *
'* USAGE: To process a whole folder use: *
'* word2html *
'* To process a single file use: *
'* word2html <-s> *
'* *
'* Version History: *
'* 1.0: Released - Able to convert folders of word documents to *
'* html. *
'* 1.2 Added the features to convert a single document. *
'* The filename (minus the .doc extension) becomes the html *
'* page's title. *
'********************************************************************************
Dim objWord
dim objDoc
dim objfso
dim strsource
dim strtarget
dim bbatch
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
Top
4 楼cudng（标）回复于 2005-07-02 10:11:03 得分 0
也能明白到WORD并非是专业做网页的软件.
目前情况是这样的.我是做网页排版的.但这次订单的客户资料,全部都是DOC文件,共六十多个文件,而且每一个DOC文件最少都有百多页,而且它要求全部都要做在网页上,而且要与DOC文件的资料的格式一致,不可能产生任何"变型",如果找不到其它转换工具,若是一个接一个复制到DW里面,但在DW又要重新排版,尤其那些图片,什么箭头,什么数学公式,...最花时间,之前做一个,已经花了一个多时间,这样的工作很机械化,很枯燥,所以上来问问大家有没有遇到这种情况,有没有更加好的解决方法,
望大家能帮帮小弟!!!!!!!!!!!!!!!!!!!!!!!!!
在此感激!!!!Top
5 楼manegefen（不懂就问）回复于 2005-07-02 10:12:41 得分 0
这好象不大可能。用DW做吧！Top
6 楼cudng（标）回复于 2005-07-02 10:21:45 得分 0
Word2CHM1这个软件说就可能直接将DOC文件导了为HTML文件.但其它也产生不少的"变型",而且在DW打开它时,还有大量的"不知"代码..
我的操作流程,先将DOC文档换成过WEB页,再将WEB页的内容复制到DW上,然后再在DW调整或修改,
但这一流程,就要花一个多小时,因为DOC文档的内容太多,每个都有百多页,而且每页都有一些图文并茂.
很难直接复制到DW操作的.而且客户要求一定做出的WEB页一定要和那些文档一致,即不能"变型"之类..
不是不想用DW做..但这么大的工作量,你叫俺怎样去写,假如每天都决战到天亮,我怕做一周时间还干不完.到时就要被人"T"走了..
所以为了客户,为了自己的饭碗,所以得要找另外的方法处理,望大家能体现俺的苦况,帮帮小弟,,,,,`@!#!@#!@#!@#!@#!23Top
7 楼chang_bo（夜鹰 MS MVP http://blog.sina.com.cn/changbo）回复于 2005-07-02 11:18:14 得分 0
<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:\\temp.doc");
oDocument.SaveAs("C:\\test.htm",8)
oWordApp.Quit();
getDOC.innerHTML=""
}
function getIframeDoc(){
alert(iframeDOC.value);
}
</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>
<button onclick="getIframeDoc()">GetDoc.HTML</button>
<P> </P> <iframe src='c:\test.htm' id='iframeDOC'></iframe>
<div id="getDOC"></div>
</BODY>
</HTML>
Top
8 楼cadust（寸寒）回复于 2005-07-02 17:01:45 得分 0
这个就不太清楚了，看看有没有高手能帮你了！对了，通过在页面中直接连接WORD能满足你的需求吗？Top
9 楼googoo322（要啥自行车）回复于 2005-07-02 17:13:49 得分 0
不明,在学习!Top
10 楼cudng（标）回复于 2005-07-03 17:10:38 得分 0
不行,,,绝对不能调用word打开文件,一是客户强烈要求不能用word打开啊.
二是,如果没有安装word就不能浏览此文档,
所以只能以网页形式显示Top
11 楼room1668（原地踏步）回复于 2005-07-03 20:25:50 得分 0
直接转成图片放到网上,有时候往往越简单越好.Top
12 楼room1668（原地踏步）回复于 2005-07-03 20:28:28 得分 0
不过你的客户可能不会接受吧,哈哈Top
13 楼cudng（标）回复于 2005-07-03 20:51:17 得分 0
楼上那位仁兄,,,不是能转换图片就说转图片啊..但每一份DOC文档文件至少都百多页....如果全都转成图片,你猜出这个页面能否打开呢?
但谢谢楼上的意见..但在此,还有没有更好的解决办法呢???
Top
14 楼cadust（寸寒）回复于 2005-07-03 21:20:48 得分 0
其实在直接把WORD文件写入网页只是可以方便下载，同样别人无法通过修改提交到站点中。就是说如果别人机器没装WORD可能会影响浏览页面。对了，楼主把你的一页比较典型的WORD文件发给我，我看一下，Mail： cadnet@163.comTop
15 楼sunnyrain（旭雨）回复于 2005-07-05 01:41:18 得分 0
文件=>另存为 保存类型=>Web页Top
16 楼tayshaun（）回复于 2005-07-05 17:29:37 得分 0
转成pdf不好吗？Top
17 楼cudng（标）回复于 2005-07-05 22:25:57 得分 0
因为直接用word转htm文档。。那转同来的htm文件，会很多代码。。而且用dr打开它，，很难修改其里面的内容。。。尤其图片并茂的文档下。。。特别困难修改文档。
那位仁兄有这样的经验呢？有没有试过用dreamwever修改word转换成htm呢？Top
18 楼xuebao2005（雪豹）回复于 2005-07-06 20:57:17 得分 0
你能不能把你的文档共享一部分，最好是具有图文并茂代表性的，以便更好的为你想办法。Top
19 楼cudng（标）回复于 2005-07-07 19:13:35 得分 0
那怎样共享呢?或者大家留下邮箱地址,我发给你们Top
20 楼xuebao2005（雪豹）回复于 2005-07-10 19:22:35 得分 0
感谢你相信我，你可以上传到你的主页／网络Ｕ盘给我们下载，这是最好的了，再不行，你可以申请一个免费邮箱，公布帐号和密码，这样也是可以的．我的邮箱是xuebao2005@yahoo.com.cn,这样的话，你只能发给我了．Top
21 楼cudng（标）回复于 2005-07-11 17:15:31 得分 0
谢谢楼上!!!
我的邮箱地址是cundg@yahoo.com.cn
如果那位朋友.也想要,,请发邮件,并注明索要DOCTOHTM文件就行了.Top
22 楼lunaryu（一天到晚睡觉的鱼）回复于 2005-07-13 08:30:12 得分 0
我知道用webworks for word 可以转成HTML,而且很不错哦
有兴趣email我，lunaryu@126.comTop
23 楼jack129（甜甜）回复于 2005-07-14 16:12:41 得分 0
可以先轉換為pdf文件，然後用pdf文件的save as存為webTop
24 楼zyqadmin（青青）回复于 2005-07-14 19:59:13 得分 0
把WORD文档内容拷贝到frontpage2003就可以跟word一模一样了Top
25 楼cudng（标）回复于 2005-07-15 22:11:32 得分 0
TO:zyqadmin(青青)
由于WORD文档的内容是百多页,而且大部都是图文并茂,文件大小差不多都有10M左右,单打开它,,已经花不少时间(指的是普通配置机器),别说把它的内容全部复制到FRONTPAGE2003,如果分次复制,这所需的时间是多长啊.而且并不是单单处理这一文档,还有几十份"份量"的文档也要处理......
请大家体现我的苦况..
那位有兴趣,请留下email,我以附件发给你们,谢谢大家的热心帮忙..
在此,求更加的解决途径或软件...........Top
26 楼lixingyuaaa（我每天能捡50分么？我要努力试试(이흥우)~~）回复于 2005-07-16 00:00:29 得分 0
office里面有microsoft脚本编辑器，你把它打开，把里面的代码copy出来，粘贴到frontpage里面就是最不失真的做法了。
因为word也是用这种编码控制文本、图片等对象的格式的，如果这种方式得到的结果仍然不令你满意，那只能说明两种解释程序（word/IE）针对同样的代码，所表现的结果不同。
我不知道我说的你明白没有。
Top
27 楼cudng（标）回复于 2005-07-16 09:03:33 得分 0
microsoft脚本编辑器?怎样使用呢??恕小弟未曾使用过..
但WORD原有的图片是怎样处理呢?因为当时这些图片是直接抓图粘贴在WORD中,并没有保存成独立的图片.请楼上解释..谢谢Top
28 楼xuebao2005（雪豹）回复于 2005-07-22 12:23:40 得分 0
没有收到附件。
祝你好运。
Top
29 楼cudng（标）回复于 2005-08-08 10:40:50 得分 0
不好意思.前段时间去了别处工作.刚回来...
不是我不想发邮件给贵兄弟.但由于文件太大,有十多M,老也发不出去啊..
如果那位有需要,请留下QQ号码,我用Q发给大家!Top
