如何用VBA从Excel在Word中创建EmptyField生成二维码

错误原因 #

Error 450属于参数错误，你的代码存在以下核心问题：

• 后期绑定未定义Word常量：wdFieldEmpty是Word内置常量，使用CreateObject进行后期绑定时，Excel无法识别该常量，需直接使用对应数值0
• Selection对象混淆：代码中直接调用Selection.Range会指向Excel的选区，而非Word的选区，需明确指定Word对象下的选区
• 字段文本格式不规范：DISPLAYBARCODE字段需要符合Word的语法要求，缺少二维码类型（如QR码）等必要参数

修正后的完整代码 #

Sub GenerateQRCodeAndInsertToExcel()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim qrSource As String
    Dim targetRange As Range
    
    ' 1. 定义Excel中二维码的数据源和插入位置，按需修改单元格地址
    qrSource = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("B1")
    
    ' 2. 创建Word应用并新建文档
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = False ' 后台运行，不显示Word窗口
    Set wordDoc = wordApp.Documents.Add
    
    ' 3. 在Word中插入DISPLAYBARCODE字段生成二维码
    With wordDoc.Range
        ' 字段格式：{DISPLAYBARCODE "数据源" QR \q 3}，\q 3控制二维码大小（1-10可选）
        wordDoc.Fields.Add Range:=.Range, Type:=0, Text:="DISPLAYBARCODE """ & qrSource & """ QR \q 3", PreserveFormatting:=True
        .Fields.Update ' 更新字段生成二维码
    End With
    
    ' 4. 将二维码复制粘贴到Excel指定位置
    wordDoc.Range.Fields(1).Result.Copy
    targetRange.PasteSpecial Paste:=xlPastePicture, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 5. 关闭Word，不保存临时文档
    wordDoc.Close SaveChanges:=False
    wordApp.Quit
    
    ' 释放对象
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

关键说明 #

• 后期绑定适配：用数值0替代wdFieldEmpty，无需额外引用Word对象库，兼容不同环境
• 字段语法规范：QR参数指定生成QR码，\q 3控制二维码尺寸，可根据需求调整数值（1-10）
• 对象边界清晰：全程通过wordApp和wordDoc调用Word方法，避免与Excel对象混淆
• 流程闭环：生成二维码后直接复制到Excel，自动关闭Word且不保存临时文件，完全符合需求

内容的提问来源于stack exchange，提问作者Acacio Magalhães