[Word已经打开，VB拒绝打开操作]

用COMMAND1命令打开D:\1.doc的程序如下：
     Dim word As Object
    Private Sub Command1_Click()
    Set word = CreateObject("Word.Application")
    Set A = word.Documents.open("D:\1.doc")
    word.Visible = True
    End Sub

现象：COMMAND1打开1.doc后，不小心又按COMMAND1，会出现只读、通知、取消选择，我不希望出这个。

我希望：
    1、当VB“发现”D:\1.doc已经打开时，就拒绝打开操作，发出信息“文件已打开”，或绕开一下也行。
    2、当VB“发现”文件还没有打开时，才执行打开操作。 

    不知道这是不是一个怪问题，VB能实现这个要求吗。            
    ——新手命苦，问专家所需的分数不够，不要见笑给分太少哈 --------------------编程问答--------------------           Dim   word   As   Object 
        Private   Sub   Command1_Click() 
        Set   word   =   CreateObject("Word.Application") 
        Set   A   =   word.Documents.open("D:\1.doc") 
        word.Visible   =   True 
command1.enable=false
        End   Sub 

补充：VB ,  基础类