Excel宏中Documents.Open返回字符串而非Document对象的问题

嘿，这个问题其实是VBA里很常见的小坑——你漏掉了Set关键字！

在VBA中，给对象类型的变量赋值时，必须使用Set关键字。你当前的代码里直接写了：

doc = wordApp.Documents.Open(docPath)

这时候VBA并不会把Documents.Open返回的Document对象赋值给doc，而是会取出该对象的默认属性（对于Word的Document对象来说，默认属性是Name，也就是文档的文件名），把这个字符串赋值给doc，这就是为什么你用TypeName(doc)看到的是String。

修正后的代码 #

Sub example()
    Dim docPath As String
    docPath = "C:\temp\test.docx"
    
    Dim wordApp As Object
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False ' 可选：如果不需要显示Word窗口可以设为False
    
    Dim doc As Object
    Set doc = wordApp.Documents.Open(docPath) ' 这里加上Set！
    
    MsgBox (TypeName(doc)) ' 现在会显示Object/Document啦
    
    ' 别忘了清理资源，避免Word进程后台残留
    doc.Close SaveChanges:=wdDoNotSaveChanges ' 如果不需要保存修改用这个，可按需调整
    wordApp.Quit
    
    Set doc = Nothing
    Set wordApp = Nothing
End Sub

额外建议 #

1. 尽量给变量指定明确的类型（比如As String、As Object），而不是用默认的Variant类型，这样能更早发现这类类型匹配问题。
2. 使用完Word对象后一定要关闭文档并退出Word，再释放对象变量，不然会在后台留下Word进程，占用系统资源。

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