200分求如何替换WORD文本框中的文本？急！(50分)

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-13

• #1

在D5下编程，请问如何替换文本框中的文本，现在可以替换一般文字，但是对于文本框中的
文本我却无法替换！可是在WORD中却可以替换文本框中的文本!这是为什么？请各位高手出点
主意！鉴于以前的经历，这次暂时只给50分，找到解决办法后如数给分，分只给第一个提出
解决方法的人！谢谢！

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-13

• #2

>>

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-14

• #3

难道没人知道吗？看来这250分又打水漂了？行不行也说句话啊？

 

S

sunhood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-23

• #4

用域试试

 

W

weicong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-23

• #5

这样吧，你可以在Word中录制一段宏，
然后，看看宏里是怎样替换文本框中的文本的。
也许有启发的。

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-23

• #6

thank you! i will try it!

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-23

• #7

呵呵，何必呢？
文本框里也可以放书签的啊，跟框外正常的文本是一样的，写一个书签，选中书签替换就
行了。
MyDoc.BookMarks.Item('工作简历').Select;
WordApp.Selection.Text := Memo1.Text;
D5 下调试通过。

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-23

• #8

当然，你得在 文本框里定义一个书签，名为 '工作简历'

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-24

• #9

如果方便的话，请提供一段比较详细的代码，不过分一定会给你的！

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-24

• #10

唉，挣点分真不容易，代码如下：
FileName := ExtractFileDir(Application.ExeName) + '/test1.dot'; //找到模板
if not FileExists(FileName) then
raise Exception.Create('找不到模板！');
try
WordApp := CreateOleObject('Word.Application'); //打开 Word
MyDoc := CreateOleObject('Word.Document');
except
Raise Exception.Create('无法打开Word，请确认已安装Word。');
end;

WordApp.Visible := true;
MyDoc := WordApp.Documents.Add(FileName,false);

MyDoc.BookMarks.Item('表名1').Select; //这是一个一般的书签
WordApp.Selection.Text := 'Animals';
MyDoc.BookMarks.Item('工作简历').Select;//这个书签是在文本框里的
WordApp.Selection.Text := Memo1.Text; //用 memo1的文本替换书签的内容
...

 

O

only you

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #11

》Crab
我调试的时候出现下面的错误
[Error] Unit1.pas(66): Types of actual and formal var parameters must be identical

 

北

北极雪虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #12

六

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #13

这里有完整的代码及模板文件，<a href="http://fatshoe.myetang.com">到我的主页下载</a>

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-26

• #14

接受答案了.