如何通过Word VBA宏访问并修改ActiveX控件值？含Excel数据填充

刚好我前段时间做过类似的需求，给你整理了清晰的操作方法和完整示例，应该能解决你的问题！

核心原理 #

在Word VBA中，你插入的ActiveX控件会自动成为ThisDocument模块的成员，直接通过控件名称就能访问并修改它的属性，不用绕复杂的集合查找（当然浮动控件例外，后面会提）。

1. 文本框（TextBox） #

直接设置Text属性就能填充内容：

' 假设你的文本框控件名为 txtUserName（右键控件→属性可查看名称）
ThisDocument.txtUserName.Text = "从Excel读取的用户姓名"

2. 单选按钮（OptionButton） #

通过Value属性控制选中状态，同一组的单选按钮只能有一个Value=True：

' 选中名为 optMale 的单选按钮
ThisDocument.optMale.Value = True
' 取消选中另一组的单选按钮
ThisDocument.optFemale.Value = False

3. 复选框（CheckBox） #

同样用Value属性，True是勾选，False是取消：

' 勾选名为 chkAgree 的复选框
ThisDocument.chkAgree.Value = True
' 取消勾选
ThisDocument.chkAgree.Value = False

完整示例：结合Excel数据填充 #

下面是把你已有的Excel读取逻辑和控件填充结合的完整宏，直接替换路径和控件名称就能用：

Sub FillActiveXControlsFromExcel()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlSheet As Object
    Dim filePath As String
    Dim userName As String
    Dim gender As String
    Dim isAgree As Boolean
    
    ' --------------------------
    ' 1. 读取Excel数据（你的已有逻辑）
    ' --------------------------
    filePath = "C:\你的Excel文件路径.xlsx" ' 替换为实际文件路径
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False ' 后台静默运行Excel
    Set xlWorkbook = xlApp.Workbooks.Open(filePath)
    Set xlSheet = xlWorkbook.Sheets("Sheet1") ' 替换为你的工作表名
    
    ' 从Excel单元格读取数据（示例：A1=姓名，B1=性别，C1=是否同意）
    userName = xlSheet.Range("A1").Value
    gender = xlSheet.Range("B1").Value
    isAgree = xlSheet.Range("C1").Value ' 假设C1是布尔值（TRUE/FALSE）
    
    ' --------------------------
    ' 2. 填充Word的ActiveX控件
    ' --------------------------
    ' 填充文本框
    ThisDocument.txtUserName.Text = userName
    
    ' 根据性别设置单选按钮
    Select Case gender
        Case "男"
            ThisDocument.optMale.Value = True
            ThisDocument.optFemale.Value = False
        Case "女"
            ThisDocument.optFemale.Value = True
            ThisDocument.optMale.Value = False
    End Select
    
    ' 设置复选框状态
    ThisDocument.chkAgree.Value = isAgree
    
    ' --------------------------
    ' 3. 清理资源
    ' --------------------------
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    MsgBox "控件填充完成！", vbInformation
End Sub

注意事项 #

• 控件名称要准确：右键ActiveX控件→属性，查看“名称”字段，VBA中必须用这个名称引用，不要用默认的TextBox1这类，建议改成有意义的名字（比如txtUserName）。
• 浮动控件的访问方式：如果控件是浮动在页面上的（不是嵌入文本流），需要通过Shapes集合访问：

  ThisDocument.Shapes("txtUserName").OLEFormat.Object.Text = "测试内容"
  

• 调试常见问题：如果报错“对象不支持该属性或方法”，大概率是控件名称写错，或者把控件类型搞混了（比如把单选按钮当成文本框引用）。

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