日期:2014-05-17  浏览次数:20792 次

word在网页上显示问题(招唤对vba熟练的高手,顶者有分)
目的:
    将一个doc文件显示在网页上显示
要求:
    客户端不必安装office.网页上的源代码为   html   代码(那就要doc文件格式转成html格式了)
进展:
   

set   wordApp=server.createobject( "word.application ")
    strDocFile=   server.MapPath( "1.doc ")
wordApp.Visible   =   false
    Set   objDoc   =   wordApp.Documents.Add(strDocFile)
                'strDocContent=objDoc.content
                'response.write   strDocContent
response.write   wordApp.Selection

objDoc.close
    set       wordDoc=nothing    
wordApp.Quit              
    set       wordApp=nothing    

上面   出来的是网页中的文字,格式全没了


另外用     objDoc.SaveAs   tofile,8   方另存为   html     文件(可行),但是如果每上传个文件都另存了一个   html文件的话那太占空间了

问题
    1,完善上面的代码,让文字上面带有文字格式
    2,用新的办法或思路


------解决方案--------------------
up
------解决方案--------------------
你可以使用DsoFramer,比较爽
下载地址,带例子

http://www.microsoft.com/downloads/details.aspx?FamilyID=CE2CA4FD-2169-4FAC-82AF-770AA9B60D77&displaylang=en
------解决方案--------------------
使用dsoframer控件
这个控件的一个比较完善的版本可以去www.dsoframer.cn下


------解决方案--------------------
其实vba中的东西很好理解,你到office的2052文件夹下看chm

有对象层次模型的介绍,通常我自己写的时候也借鉴这个
------解决方案--------------------
mark
------解决方案--------------------
doc文件转成html格式,如果完全不变像DOC排版那么漂亮,是不可能的事情,总会有点错位之类的不同。

建议使用组件,同时服务器端还要在Dcom中修改ms word的用户权限
------解决方案--------------------
呵呵.能转换蛮好.
MARK
------解决方案--------------------
http://blog.joycode.com/kaneboy/archive/2004/11/03/37889.aspx
------解决方案--------------------

假如文档是123.doc,转换后会变成 123.htm 和 123.files文件夹
------解决方案--------------------
word.application读取内容?
参考
Office VBA开发文档
http://msdn2.microsoft.com/en-us/library/ms400535.aspx
------解决方案--------------------
C:\Program Files\Microsoft Office\OFFICE11\2052\vbawd10.chm
------解决方案--------------------
如果您想要把word发布到网上让人家浏览,用在线编辑器发布就可以。

推荐我自己的WebNoteEditor.

word发布到网上,可以以代码的形式呈现给客户端,
也可以该编辑器的word文档转图片的形式呈现给客户端。
两种方法下,客户端都无需安装任何插件。

word文档转图片可以看看这个视频,http://www.webnoteeditor.com/ViewNote.asp?NoteID=20070501040059。
------解决方案--------------------
只用过owcvba11.chm,可以弄excel,没有玩过word...
------解决方案--------------------
没有用过,是来学习的
------解决方案--------------------
mark
------解决方案--------------------