OLE的问题(200分)

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-09

• #1

我在数据库里有多个doc文件,先在想要在OLECONTAINER中用WORD顺序显示出来，
有什么办法吗？（麻烦详细一点的说明好吗？）

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-09

• #2

for循环

 

W

westboy2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-09

• #3

你可以搜寻一下有关ole的旧贴，相信会有收获的。

 

Z

zhichunw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #4

先把数据库中的DOC文件装入一个内存流ST，
在用 .LoadFromStream(ST);显示

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #5

问题在于我的DOC文件里有文字和图形，
而我要将多个DOC文件加在一起，
每个DOC之间有若干个空行！

 

Z

zhichunw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #6

1.建立word.application
2.控制word合并文件
3.装入olecontainer

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #7

TO zhichunw:能不能详细点啊！
或者你将这样的DEMO发到我的信箱里！r9_baggio@163.net
我就想知道如何合并DOC文件的！

 

Z

zhichunw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #8

下面是合并1.doc,2.doc,3.doc为4.doc的代码。

uses ComObj;

var WordApp: Variant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.open('c:/1.doc');
WordApp.Selection.InsertFile('c:/2.doc','',False,false,false);
WordApp.Selection.InsertFile('c:/3.doc','',False,false,false);
WordApp.ActiveDocument.SaveAs('C:/4.doc');//,'wdFormatDocument',False,'',True,'',False,False,False,False,False);
WordApp.Quit;
OleContainer1.CreateObjectFromFile('c:/4.doc',true);

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #9

真的非常感谢！
200分送上！
有OLE 的相关资料吗？
能告诉我你的QQ或邮箱吗？有机会我可要向你讨教一下！可以吗？
谢谢！
我的：8837234

 

Z

zhichunw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #10

zhichunw@163.net

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #11

接受答案了.

 

R

R_Baggio

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-16

• #12

用 WordApp: Variant
如何插入一行，并换行，然后，改变字体和大小。
请教！