请问如何以只读方式打开word文档？

Question

我想以只读方式打开一个word文档，但我不会用open这个函数
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMRU)
想将下段代码改为只读方式，请问如何改
    Dim sFileName, sContent, sPartContent As String   '打开word文档
    Dim wrdApp As Object
    Dim k As String
    CommonDialog1.ShowOpen
    If Err <> 0 Then Exit Sub
    sFileName = CommonDialog1.FileName
    If sFileName = "" Then Exit Sub
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    wrdApp.Documents.Open (sFileName)/这里该如何该？
    sContent = wrdApp.ActiveDocument.Content

Answer 1

wrdApp.Documents.Open FileName:=sFileName, ReadOnly:=True