"有关word的一个问题！"(100分)

B

bain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #1

我要实现功能是：有一个word文件已被打开编辑，但没有保存,我要检测到它，并把它保存。
我的代码是：
procedure TForm1.Button1Click(Sender: TObject);
var
Word_Ole : Variant;
begin
Word_Ole := GetActiveOleObject('Word.Application');
Word_Ole.filesaveas('i:/DocTemp.doc') ;
end;
我在uses中加入了OleServer, ComObj等单元，但是在我运行时报错说这个对象不支持
filesaveas方法。为什么？该如何写？

 

J

j_shen2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #2

你查一下WORD的宏帮助，我记得FILESAVEAS是WORD6.0的命令，OLE调用时应该用VBA的函数，
好像应该是SAVEAS，具体不记得了，你自己查一下吧。

 

B

bain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #3

能告诉我怎么写吗？

我试了
Word_Ole.Documents.SaveAs(FileName:='i:/DocTemp.doc',FileFormat:=wdFormatDocument,AddToRecentFiles:=False);
也报错说这个对象不支持saveas方法！！！

在加50分！急

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #4

Word_Ole.ActiveDocument.SaveAs('i:/DocTemp.doc')

 

B

bain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #5

谢了！问题结束。

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #6

学习