如何通过Excel VBA识别并选中指定文件名的活动Word文档？

嘿，我发现你现有代码里的核心问题是直接把Document对象和字符串文件名做比较，这肯定会报错的——毕竟一个是对象，一个是文本，类型不匹配嘛。咱们得用Document对象的Name属性来获取文件名，再做匹配才行。

下面是修正并完善后的代码，还加了错误处理和完整的逻辑流程，你可以直接用：

Sub TargetSpecificWordDocument()
    Dim wrdApp As Word.Application
    Dim targetDoc As Word.Document
    Dim doc As Word.Document
    Dim targetFileName As String
    
    ' 这里根据你的需求补全Format部分，比如Format(Now, "yyyy-mm-dd")生成日期后缀
    targetFileName = "SampleWord " & Format(Now, "yyyy-mm-dd") & ".docx" ' 记得加上文件扩展名哦
    
    On Error Resume Next
    ' 获取已经在运行的Word应用实例
    Set wrdApp = GetObject(, "Word.Application")
    On Error GoTo 0
    
    ' 先检查Word有没有在运行
    If wrdApp Is Nothing Then
        MsgBox "没找到正在运行的Word程序哦！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历所有打开的文档，找我们要的目标文件
    For Each doc In wrdApp.Documents
        ' 匹配文件名，要是想忽略大小写，就用LCase(doc.Name) = LCase(targetFileName)
        If doc.Name = targetFileName Then
            Set targetDoc = doc
            Exit For ' 找到就别继续循环啦
        End If
    Next doc
    
    ' 处理结果
    If Not targetDoc Is Nothing Then
        ' 激活目标文档，这样后续操作就都针对它了
        targetDoc.Activate
        MsgBox "搞定！已经找到并激活目标文档：" & targetFileName, vbInformation
        
        ' 这里加你后续要做的操作就行，比如选中内容、修改格式啥的
        ' 举个例子：选中文档第一段
        ' targetDoc.Paragraphs(1).Range.Select
    Else
        MsgBox "没找到指定文件名的Word文档呢！", vbCritical
    End If
    
    ' 最后别忘了释放对象，避免内存占用
    Set targetDoc = Nothing
    Set wrdApp = Nothing
End Sub

几个关键细节要注意： #

• 文件名匹配：一定要用doc.Name拿文件名，不能直接比对象本身，这是你原代码的核心问题。
• 错误处理：加了On Error Resume Next来处理Word没打开的情况，不然代码会直接崩掉。
• 文件扩展名：记得给目标文件名加上.docx或.doc，不然可能匹配不到——如果你的系统设置隐藏了文件扩展名，那这里可以去掉，但保险起见还是加上更稳妥。
• 大小写问题：如果你的文件名可能有大小写差异，就把匹配条件改成忽略大小写的版本，我在代码注释里标注了写法。

内容的提问来源于stack exchange，提问作者John Louie Gonzales