VB6调用Word.Basic生成Word文档，Office2019+报错（91/438/509）求助

你的问题核心在于**Word.Basic是Office早期的兼容对象**，Office 2019及后续版本对这类旧API的兼容性已经大幅削减，这就是你遇到91、438、509等错误的根本原因，必须改用标准的Word对象模型（Word.Application）来实现功能。

代码修改方案 #

直接替换对象创建方式，改用Word.Application对象操作，以下是完整的VB6示例代码：

Dim objWord As Object
Dim objDoc As Object
Dim strTemplatePath As String

On Error GoTo ErrorHandler

' 设置模板的绝对路径（务必替换为你的实际路径）
strTemplatePath = "C:\Templates\YourTemplate.dot"

' 创建Word应用程序对象
Set objWord = CreateObject("Word.Application")
objWord.Visible = True ' 可选：设置为True可显示Word窗口，方便调试

' 从模板创建新文档
Set objDoc = objWord.Documents.Add(Template:=strTemplatePath, NewTemplate:=False)

' 这里可以添加你的文档操作代码（比如填充内容、修改格式等）

' 示例：保存文档（可选）
' objDoc.SaveAs2 "C:\Output\NewDocument.docx", FileFormat:=16 ' 16对应docx格式

Cleanup:
' 释放对象，避免后台残留Word进程
If Not objDoc Is Nothing Then
    objDoc.Close SaveChanges:=False ' 根据需求调整是否保存
    Set objDoc = Nothing
End If
If Not objWord Is Nothing Then
    objWord.Quit
    Set objWord = Nothing
End If
Exit Sub

ErrorHandler:
MsgBox "错误代码：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
Resume Cleanup

错误原因说明 #

• 91错误：Word.Basic在高版本Office中无法正确初始化对象，导致对象变量未被正确赋值
• 438错误：高版本Word已移除Word.Basic支持的部分属性/方法，调用时触发不兼容报错
• 509错误：模板中的书签、域等元素通过Word.Basic处理时，高版本Word的对象模型逻辑已变更，导致无法识别原有标记

额外注意事项 #

• 务必使用绝对路径指定模板，避免因当前工作目录变化导致模板找不到
• 如果模板包含宏，需在Office设置中启用对应信任中心的宏权限，否则模板加载会失败
• 调试时将objWord.Visible设为True，可以直观看到Word的操作过程，便于排查问题

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