主题：Doc.saved=? 要怎么写 才能实现被打开的word文件不保存？

Doc.saved=? 要怎么写 才能实现被打开的word文件不保存？

当前代码如下：【因为只获取页数 没有对数据进行修改  所以不想提示当前文件被锁定 选择打开副本等提示】

Dim app As New MSWord.Application
Dim doc = app.Documents.Open("D:\文书模板\谈话通知书.docx")
Dim pages As Integer = doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages, Nothing)
Doc.saved=True
app.Quit
msgbox(pages )

因为只是获取页数  想实现不用打开文件  不用进行其他操作   默认就只获取页面

有没有更简单的办法呢？

或者说

If FileIsOpened("c:\data\employee.xls")= True Then
    MessageBox.Show("文件已经打开")
End If

这个  怎么有自动写入代码  让系统默认后台就关闭它  且不用打开文件呢？

好的谢谢老师的耐心指导

有没有不用app.Documents.Open这个方式获取文档页面页数的方法呢?