VBA中Documents.Open命令为何首次运行无法正常打开Word文档？

首次运行失败、后续执行正常是两处代码逻辑缺陷叠加导致的：

1. 代码使用On Error Resume Next全局吞掉运行错误，首次执行时如果系统没有已启动的Word进程，GetObject(, "Word.Application")调用会直接失败，objWord变量为空值，后续所有Word相关操作全部没有实际执行，错误被吞掉没有任何提示。首次运行失败后，要么残留了隐藏的Word后台进程，要么后续环境中存在已打开的Word窗口，第二次执行时GetObject能正常捕获到现成的Word实例，因此可以正常运行。
2. 路径拼接时额外给字符串前后加了双引号，Documents.Open方法原生支持带空格的路径，不需要像命令行传参那样额外给路径套引号，该不规范写法依赖Word的容错机制兜底，本身就存在触发异常的风险。

• 移除全局的On Error Resume Next错误屏蔽逻辑，仅在调用GetObject捕获现有Word实例的短区间内使用错误忽略，捕获动作完成后立刻恢复默认错误抛出，避免错误被隐藏无法定位
• 补全Word实例初始化逻辑：优先捕获系统中已存在的Word进程，捕获失败时主动新建Word实例，不依赖运行环境提前打开Word
• 修正路径拼接逻辑，去掉路径字符串前后手动添加的多余双引号，直接传入拼接完成的原生路径即可
• 首次调试修复代码前，先打开任务管理器结束所有残留的WINWORD.EXE后台进程，避免之前运行失败残留的隐藏进程锁文件、占用实例导致异常
• 代码中所有工作表、应用对象都显式声明绑定，不要依赖隐式全局调用，避免上下文切换导致的对象绑定错误

Sub gerarproposta()
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Dim objWord As Word.Application, wdDoc As Word.Document
    Dim basedados As Worksheet
    
    '数据库相关对象声明
    Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
    
    '路径存储变量
    Dim Tex As String
    
    '显式绑定数据源工作表
    Set basedados = ThisWorkbook.Sheets("Base de Dados")
    
    '获取Word实例：优先取现有进程，不存在则新建
    On Error Resume Next
    Set objWord = GetObject(, "Word.Application")
    On Error GoTo 0
    If objWord Is Nothing Then
        Set objWord = New Word.Application
    End If
    
    objWord.DisplayAlerts = wdAlertsNone
    objWord.Visible = True
    
    '拼接目标文档路径，不额外添加包裹双引号
    Tex = basedados.Range("B30").Value & "\" & basedados.Range("B31").Value
    '打开目标docm格式启用宏文档
    Set wdDoc = objWord.Documents.Open(Filename:=Tex)
    
    '后续业务逻辑在此处编写
    '......

    '业务逻辑执行完成后按需释放对象、关闭无用进程，避免后台残留
End Sub

内容的提问来源于stack exchange，提问作者Pedro da Silva Farias