VBA 判断Word进程是否存在和当前word文档是否打开

    最近写了点关于word的程序，要判断word程序是否存在。现提供给大家分享（vb6）：

    首先要引用microsoft word 11.0 object library(即系统安装了office 2003)，具体代码如下

 

Private Function WordisExist(ByVal FilePath As String, ByVal DocName As String) As Integer
  If Dir(FilePath) = "" Then
  WordisExist = 3
' Debug.Print "Word文件不存在"
  Exit Function
  End If
  ' 搜索word文档是否已经打开
  On Error GoTo ERROR0
  For Each Doc In Word.Application.Documents
  If Doc.Name = DocName Then
  Found = True
  Exit For
  End If
  Next
  If Found Then
' MsgBox ("要打开的word文档已经打开")
  WordisExist = 1
  Exit Function
  End If
ERROR0:
  If Err = 0 Then
' MsgBox "将所用的word文档和进程关闭"
  WordisExist = 2
  Exit Function
  Else
  Err.Clear
  End If
  WordisExist = 0
End Function