300分的OLE问题: HTML->DOC(Word97)(300分)

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #1

有谁能将HTML转化为WORD97格式的DOC文档即为得满分。
起码的例子如本论坛的离线数据HTML。
提供控件亦可得150分，有源码的话另加50分。
本题可超限（300）送分。

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #2

安装Word97的html扩展后就能够用Word97打开html,然后保存为Doc.

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #3

我打开过，效果很不好。我来写一个吧。

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #4

只见 tqz 远远望见这里蓝晶晶的300分，
两眼立即发亮，马上挥刀前来抢滩......

& to huizhang:
这一点我当然知道，不过它的效果实在不敢恭维。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #5

先安装创作web页工具，然后
var a:Variant;
begin
a:=CreateOleObject('word.basic');
a.fileopen('c:/offline/q0000020.htm');
a.filesaveas('q020.doc');
end;
即可。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #6

关键的问题是文字及大至的格式已转换过来，在中间过程中，你可以根据实际的要求
效果自己修改htm或doc（当然是用code）,好象不是什么大问题了。你的提议比较有
意义，大家如果统一了该方法，那么编辑起来可省事多了，只是删减与修改的问题了
多谢你（&point 8)）

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #7

我的意思是直接写database->DOC

 

茶

茶叶蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #8

啊，我来晚了！
可以用：
MyNewWord : Olevariant;

MyNewWord := CreateOLEObject( 'word.Application' );
MyNewWord.Documents.Open( open.FileName );
MyNewWOrd.Run( OleVariant( 'HTML.HTML1.FileSaveAs' ) );
//或者用MyNewWOrd.Run( OleVariant( 'HTMLFileSaveAsDoc' ) );
MyNewWord.quit;
mynewword := null;

可以显示出一个对话框，问你存到哪边去。
(必须用宏)

to menxin:
你的方法在我的机器上显示：“数超出范围”

 

茶

茶叶蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #9

to tqz:

Database to doc <b>is</b> Text( but has something in html ) to doc,

I think it is too hard......if you want to keep it's format.

but if you don't want to keep it's format , it's too easy.....

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #10

不装word,只一个干净的win9x，还行吗？

 

C

clyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-18

• #11

同意茶叶蛋的意见，不保留格式则毫无意义，要保留格式则实不容易。
看来doc的格式是一个比较普遍的问题了，亟盼高手们能破解它。
TMDM$

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-18

• #12

是哪一行出错呢？

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-18

• #13

to teaegg:
可以让每个Comment生成HTML,再用OLEAUTO生成DOC.不过大多数回答都没有
用HTML标记，所以我看就不必转化了。我只是想辅助编辑，所以不必一味追求
用程序转化。

 

茶

茶叶蛋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-18

• #14

不过我想到一个办法：
先做个膜版（在Word中间），然后读出html文件中的各个部分（比如说每个表格）
一行一行插进去就行了。
不过我对莫版一无所知......

ps：to tqz， 我把你写进了我论文的致谢部分，不介意吧？还记得你给我的Plug in吗？

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-19

• #15

teaegg的模版方法我看可行。
因为每一条问题都是差不多。
但是我对模版也不在行，高手们可有办法？

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-19

• #16

用不着模板，我的程序就是

 

L

LSS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-19

• #17

<pre><font size=3>
TQZ:如果你的程序可中以做到和范文一样的话，我的200分也给你，别
忘了<A HREF="mailto:harbinlss@21cn.com">给我</A>一份
,<A HREF="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=1
16110">请看这里</A>
</font></pre>

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-19

• #18

究竟出世了没有？：）

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-20

• #19

呱呱...出世了....
<a href="ftp://202.120.100.49/pub/EditCh/EditChSrc.zip">源代码</a>
<a href="ftp://202.120.100.49/pub/EditCh/EditCh.exe">执行程序</a>

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-25

• #20

嘿，我的程序又更新了！
3h兄?