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

我想以只读方式打开一个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 问题点数：40、回复次数：1Top

1 楼hhjjhjhj（大头)(http://office.9zp.com）回复于 2004-09-04 12:24:47 得分 40

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

相关问题

• 文档
• word
• wrdapp
• sfilename
• 打开
• word文档
• commondialog1
• 请问如何
• scontent
• 读方式

• 帖主：langtao1982
• hhjjhjhj

• Visual Basic类图书
• Visual Basic类源码下载