一个Word文档是否已经打开?(100分)

L

LuckyJackie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-24

• #1

1。文档有完整的路径。
2。文档不是在我的程序中打开。（但是由我激活的Word实例打开）
3。当然，只需考虑我程序中的这个Word实例。
4。判断后，如果已打开，那么关闭它。
5。希望有代码。
我的Word实例：
WordApp := CreateOleObject('Word.Application');

 

N

newsmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #2

取得您的实例中的document判断

 

L

LuckyJackie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #3

to newsmile,
能否详细一些，谢谢。

 

N

newsmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #4

按您的程序
if WordApp.Documents.Count>0 then
for i:=1 to WordApp.Documents.Count do
if WordApp.Document.name=XX then

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #5

for i:=1 to WordApp.Documents.Count do
if uppercase(WordApp.Documents.item(i).path+'/'+WordApp.Documents.item(i).name) = uppercase(wcname) then
begin
WordApp.Documents.item(i).close;
break;
end;

 

L

LuckyJackie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-25

• #6

to newsmile,
“您”实在太客气了~~~

 

L

LuckyJackie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-06

• #7

多人接受答案了。