这个文件如何用独占方式打开

把文件D:\1.doc用独占方式打开。
以下是我的程序，请你帮我改写一下，多谢了。

Private Sub Command1_Click()
Dim word As Object
Set word = CreateObject("Word.Application")
Set A = word.Documents.open("D:\1.doc")
word.Visible = True
End Sub --------------------编程问答-------------------- 在WORD当中只要是你最先打开1.DOC这个文件的话，你就是独占方式打开的。这个类似数据库的锁机制，你先打开了你就可以改，其他人只能看不能做任何操作！这就是你说的独占了吧？

补充：VB ,  基础类