嘿，我之前也碰到过这个烦人的429错误，尤其是涉及Word COM对象的时候。结合你的情况——之前运行正常突然出问题，而且是执行Set oWord = CreateObject("Word.Application")时触发，给你几个靠谱的排查方向：

• Word COM组件注册信息丢失
  这是最常见的诱因，系统更新、Office自动修复或者版本升级都可能搞丢注册信息。你可以手动重新注册Word的COM组件：

  1. 右键点击开始菜单，打开命令提示符（管理员）
  2. 根据你的Office位数执行对应命令（把XX换成你的Office版本号，比如Office 2016/365是16）：
     • 32位Office：regsvr32.exe "C:\Program Files (x86)\Microsoft Office\OfficeXX\MSWORD.OLB"
     • 64位Office：regsvr32.exe "C:\Program Files\Microsoft Office\OfficeXX\MSWORD.OLB"
       执行后如果弹出“DllRegisterServer在MSWORD.OLB succeeded”的提示，就说明注册成功了，再回去测试你的代码。

• 权限不足导致无法创建对象
  有时候Excel的运行权限受限，或者文件存放位置有问题，会阻止创建ActiveX对象：

  1. 右键Excel图标，选择以管理员身份运行，再打开你的文件测试
  2. 如果文件在网络共享文件夹或者OneDrive同步目录，先把它复制到本地硬盘（比如桌面）再运行
  3. 检查宏安全设置：打开Excel的「文件>选项>信任中心>信任中心设置>宏设置」，不要选“禁用所有宏，并且不通知”，至少选“启用所有宏（不推荐；可能会运行有潜在危险的代码）”临时测试（测试完记得改回来）

• Office安装损坏或版本冲突
  如果最近更新过Office，或者电脑上装了多个版本的Office（比如同时有32位和64位），很容易出现COM对象混乱：

  1. 打开控制面板>程序和功能，找到Microsoft Office，点击「更改>快速修复」，先试试快速修复
  2. 如果快速修复没用，再选「联机修复」（需要联网，修复时间更长，但更彻底）
  3. 如果有多个Office版本共存，建议卸载多余的，只保留你常用的那一个版本

• 打印机设置可能间接触发异常
  看你的代码里先获取了ActivePrinter，还调用了xlDialogPrinterSetup。有时候打印机设置的变更会导致Office组件处于异常状态：

  1. 先注释掉打印机相关的代码段，单独测试Set oWord = CreateObject("Word.Application")这一行，如果不报错了，就说明问题出在打印机设置和Word对象的交互上
  2. 试试重置默认打印机：打开「设置>蓝牙和设备>打印机和扫描仪」，随便选一个打印机设为默认，再改回原来的，然后重新运行代码

另外，如果你之前是用晚绑定（CreateObject），可以临时换成早绑定测试：打开VBA编辑器，点击「工具>引用」，勾选「Microsoft Word XX.X Object Library」，然后把代码改成Dim oWord As Word.Application: Set oWord = New Word.Application。如果早绑定也报错，那基本可以确定是Office组件本身的问题，不是代码逻辑的问题。

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