Word VBA运行时错误9099：墨西哥城用户执行Close命令报错求助

问题背景 #

现有一段运行多年的Word VBA宏，近期仅墨西哥城地区多台PC执行时触发Run-time error 9099，错误发生在关闭临时文件的ActiveDocument.Close wdDoNotSaveChanges语句。所有涉事设备使用相同版本Word（2202 Build 16.0.14931.20648 32位）及戴尔硬件，美国、印度用户无此问题。

相关代码片段：

Application.ScreenUpdating = gblnScreenUpdating
ActiveDocument.Close wdDoNotSaveChanges
Documents.Open (strTempFileName)
ActiveDocument.Close wdDoNotSaveChanges ' 此处触发错误
Documents.Open (strWorkFileName)
ActiveWindow.WindowState = wdWindowStateMaximize

临时文件存储在宏启动时创建的C:\Users\[用户名]\AppData\Roaming\OrderGuide文件夹，本地测试该文件夹权限为“仅文件夹内文件只读”，暂未确认墨西哥城用户权限但假设一致。

排查思路 #

1. 权限与文件锁定的地域差异 #

• 直接核查墨西哥城用户的OrderGuide文件夹权限：
  • 确认文件夹本身是否具备写入/修改权限（即使文件设为只读，文件夹权限不足可能导致Word无法完成文件句柄释放）
  • 检查域策略的地域差异：墨西哥域可能对AppData\Roaming下自定义文件夹的权限限制更严格，拦截Word的关闭操作
  • 验证临时文件是否被第三方进程锁定：本地杀毒软件、企业同步工具的地域规则不同，可能实时扫描AppData下的新文件，导致Word无法释放资源

2. 系统/Office地域化配置问题 #

• 检查Windows区域设置：
  • 确认用户系统区域是否为西班牙语（墨西哥），编码或日期格式差异可能导致Word处理文件路径时出现隐性错误
  • 排查临时文件名是否包含西班牙语特殊字符（如重音）：宏生成文件名时若未处理地域字符，可能引发文件操作异常
• 检查Office信任中心设置：
  • 墨西哥地区的Office是否启用了更严格的宏安全规则，或对本地文件夹的访问限制，导致关闭操作被拦截

3. 文件资源操作的上下文与延迟问题 #

• 替换ActiveDocument为显式文档对象引用，避免上下文切换引发的错误：

  Dim tempDoc As Document
  Application.ScreenUpdating = gblnScreenUpdating
  ActiveDocument.Close wdDoNotSaveChanges
  Set tempDoc = Documents.Open(strTempFileName)
  tempDoc.Close wdDoNotSaveChanges ' 显式关闭指定文档
  Set tempDoc = Nothing
  Documents.Open (strWorkFileName)
  ActiveWindow.WindowState = wdWindowStateMaximize
  

• 针对本地存储性能差异添加延迟：墨西哥城设备的存储性能可能偏低，临时文件未完全加载就执行关闭会触发错误，可添加Sleep 500（需声明Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)）验证

4. 临时文件创建完整性验证 #

• 检查宏创建临时文件的逻辑：
  • 写入文件后用FileLen(strTempFileName)验证文件大小，确保文件完全写入磁盘后再执行打开操作
  • 确认OrderGuide文件夹是否成功创建：部分地域的系统权限可能阻止文件夹创建，导致临时文件存储到默认路径，关闭时出现异常

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