激活指定文档时出现Runtime error 4160，求排查VBA代码问题

核心问题 #

Runtime error 4160的直接原因有两个：

• Documents(InFileName)试图用完整文件路径索引Documents集合，但该集合的字符串索引只接受文档的显示名称（即不含路径的文件名，比如Source File.docx），而非完整路径。
• 你输入的目标文档此时并未打开，Documents集合里不存在这个文档对象，自然无法激活。

修复方案 #

方案1：先打开目标文档再激活（推荐） #

直接通过完整路径打开文档，无需依赖文档已提前打开：

Dim InFileName As String
Documents.Add DocumentType:=wdNewBlankDocument
ActiveDocument.SaveAs FileName:="temp.doc", FileFormat:=wdFormatDocument
InFileName = InputBox("Enter the Book source file name.", "Book Source File")

' 先校验文件是否存在，避免找不到文件报错
If Dir(InFileName) <> "" Then
    Dim sourceDoc As Document
    ' 打开目标文档并获取文档对象
    Set sourceDoc = Documents.Open(FileName:=InFileName)
    ' 激活该文档
    sourceDoc.Activate
Else
    MsgBox "指定文件不存在，请检查路径。"
End If

方案2：针对已提前打开的文档 #

如果你的场景是目标文档已手动打开，需用文档的显示名称（不含路径）索引，或者遍历集合匹配完整路径（更稳妥，避免重名冲突）：

Dim InFileName As String
Documents.Add DocumentType:=wdNewBlankDocument
ActiveDocument.SaveAs FileName:="temp.doc", FileFormat:=wdFormatDocument
InFileName = InputBox("Enter the Book source file name.", "Book Source File")

Dim targetDoc As Document
' 遍历Documents集合，匹配完整路径
For Each targetDoc In Documents
    If targetDoc.FullName = InFileName Then
        targetDoc.Activate
        Exit For
    End If
Next targetDoc

' 未找到时提示
If targetDoc Is Nothing Then
    MsgBox "该文档未打开，请先打开或使用Open方法打开。"
End If

额外提示 #

• 保存temp.doc时建议指定完整路径，避免默认路径混乱。
• 输入路径时注意空格和特殊字符，确保路径完全正确。

内容的提问来源于stack exchange，提问作者Donald Ray