怎么判断文件已经打开

manwen

目的：用vb打开word2000 环境，同时要打开一个文件 情况：如果目前word2000环境已经打开，而且此文件也被打开了 问：如何返回信息让用户另存原来已经打开的文件，之后再打开目前这个要打开的文件？ 谢谢

manwen

意思是这样，我回去试试看能不能成功，谢谢

兰州人

有示例吗??

守柔

QUOTE:

以下是引用兰州人在2007-3-18 14:02:00的发言：

有示例吗??

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-3-19 5:53:05
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0183^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub GetWdApp()
    Dim wdApp As Object, myDocPath As String
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Err.Clear
        Set wdApp = CreateObject("Word.Application")
    End If
    myDocPath = "F:\MyOffice\MyWord\Sample.doc"
    With wdApp
        If .Tasks.Exists("Sample.doc") = True Then
            MsgBox "请另存为此文档后再运行本程序!", vbInformation
            .Tasks("Sample.doc").Activate
            If .Dialogs(wdDialogFileSaveAs).Show = -1 Then
                .Documents.Open myDocPath
            End If
        End If
    End With
End Sub
'----------------------

惊叹不已

先用GetObject函数获得Word对象,用Documents(i).FullName遍历每一个文档,如果文档已被打开,则Msgbox提醒用户后再Dialogs(wdDialogFileSaveAs).Show打开另存为对话框,之后是Documents(文件).Close关闭文件,再Documents.Open打开文件.