如何判断指定word文档是否已打开

用心修炼

目前我有一个word文档，名为模版.docx。我想在excel中用VBA判断改文件是否处于打开状态；若已打开则提示该文件已打开并激活成为活动word文档，若没有打开则打开该文件，求助各位大神指点

花儿为什么这样

Sub test1()
Dim wordDoc As Object
Dim wordApp1 As Object
Dim mydoc As String
Dim myapp As String
'On Error GoTo errorhandler
mydoc = "C:\Users\along22\Desktop\New folder\invite1.doc"
myapp = "word.application"
If Not docexists(mydoc) Then
    MsgBox 请先创建
    Exit Sub
End If
If Not isrunning(myapp) Then
'    MsgBox "软件未运行，将创建"
    Set wordApp1 = CreateObject("word.application")
    Set wordDoc = wordApp1.documents.Open(mydoc)
Else
    MsgBox "软件已运行，将打开文件"
    Set wordDoc = GetObject(mydoc)
End If

With wordDoc.Paragraphs(1).Range
    .ParagraphFormat.Alignment = wdalignparagraphcenter
End With
wordDoc.Application.Quit savechanges:=True
Set wordoc = Nothing
Set wordApp1 = Nothing
Exit Sub
errorhandler:
MsgBox Err.Description, vbCritical, "错误为：" & Err.Number
End Sub

Function docexists(ByVal mydoc As String) As Boolean
On Error Resume Next
    If Dir(mydoc) <> "" Then
        docexists = True
        Else
        docexists = False
    End If
End Function

Function isrunning(ByVal myapp As String) As Boolean
    Dim appref As Object
    On Error Resume Next
    Set appref = GetObject(, myapp)
    If Err.Number = 429 Then
        isrunning = False
        Else
        isrunning = True
    End If
    Set appref = Nothing
End Function

老和山下RAm

花儿为什么这样 发表于 2020-8-31 15:47
Sub test1()
Dim wordDoc As Object
Dim wordApp1 As Object

要先引用word库么

用心修炼

花儿为什么这样 发表于 2020-8-31 15:47
Sub test1()
Dim wordDoc As Object
Dim wordApp1 As Object

感谢老师指点，不过我是文件已经创建好了，只需要判断当前打开的文档中是否包含指定的word文档，如果包含则激活，如果不包含则打开该文档。

花儿为什么这样

用心修炼 发表于 2020-8-31 16:38
感谢老师指点，不过我是文件已经创建好了，只需要判断当前打开的文档中是否包含指定的word文档，如果包含 ...

有什么区别？
你有文档，宏会跳过创建的文件，直接打开他，打开的时候会激活这个文档
其他部分你可以选择性不要

花儿为什么这样

老和山下RAm 发表于 2020-8-31 15:50
要先引用word库么

需要，word跟excel 不一样