Excel AddIn中手工关闭Word文件引起的问题

曹先生

在使用VSTO，创建一个Excel工作簿，打开一个Word文件。
1. 可正常打开文件。
2. 文件打开后，如果是手工关闭Word文件，则再次试图打开Word时，提示错误。

1. Dim wd_App As New Microsoft.Office.Interop.Word.Application
   
2.     Dim wd_文档 As New Microsoft.Office.Interop.Word.Document
   
3.     Sub 调用word模板文件()
   
4.         '打开文档
   
5.         wd_App.Visible = True
   
6.         wd_文档 = wd_App.Documents.Open("D:\模板.docm")   
   
7.     End Sub

复制代码

3. 试图使用“If wd_App Is Nothing"，先行判断，但无效。
4. 感觉应该是在手工关闭Word文件时，wd_App处于回收状态，但不知道如何判断处于回收状态，在Word.Application下，没有找到”Disposable"这个事件或方法。

请高手指点下，多谢！

曹先生

上述问题自己解决。

使用Try语句处理就好。

1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
2.         Try
   
3.             wd_App.Visible = True
   
4.         Catch ex As Exception
   
5.             wd_App = New Microsoft.Office.Interop.Word.Application
   
6.         End Try
   
7.         wd_App.Visible = True
   
8.         wd_Doc = wd_App.Documents.Open("D:\临时Word文件\001.docx")
   
9.     End Sub

复制代码