如何禁止修改打开的word文件(50分)

Question

用vb打开了一个word文件(相对路径),但是打开的文件可以修改,现在想打开后的文件禁止被修改,如何设置代码?
源代码如下:
Dim wdApp As Word.Application 
            Dim aDoc As Document 
            Set wdApp = New Word.Application 
            Set aDoc = wdApp.Documents.Open(App.Path & "\001.doc") 
            wdApp.Visible = True 
请高手们指点!!!!

Answer 1

Set aDoc = wdApp.Documents.Open(App.Path & "\001.doc",,True) 

Answer 2

同意楼上，open的第三个参数设置为true将以只读方式打开文档。

Answer 3

Set aDoc = wdApp.Documents.Open(App.Path & "\001.doc",,True)

Answer 4

Set aDoc = wdApp.Documents.Open(App.Path & "\001.doc",,True)一只读方式打开！