VBA | Word：如何获取嵌入式滚动条的值或实现类似值滑块功能？

嘿，刚好我之前帮朋友解决过类似的Word评分收集需求，给你拆解几个靠谱的方案，包括你提到的ActiveX滚动条实现，还有更省心的替代选项：

1. 插入并配置滚动条 #

首先得调出「开发工具」选项卡（如果没显示，就去「文件→选项→自定义功能区」勾选上）：

• 点击「控件」组里的「ActiveX控件」，选择「Microsoft Forms 2.0 ScrollBar」插入到文档中
• 右键滚动条→「属性」，在属性窗口里：
  • 将Name改成你要的MyBar1
  • 设置Min=0、Max=100，SmallChange=1（小步长）、LargeChange=10（大步长），刚好覆盖0-100的评分范围

2. VBA获取滚动条的值 #

双击滚动条，Word会自动打开VBA编辑器并生成MyBar1_Change的事件框架，你可以在这里写代码实时获取值，或者通过按钮批量收集：

' 方案1：拖动滚动条时实时获取值
Private Sub MyBar1_Change()
    ' 弹出当前评分（也可以把值存到文档变量/隐藏段落里）
    MsgBox "当前评分为：" & MyBar1.Value
End Sub

' 方案2：通过按钮批量获取并处理
Private Sub CommandButton1_Click()
    Dim userScore As Integer
    ' 获取滚动条的值
    userScore = MyBar1.Value
    
    ' 这里可以做后续处理，比如打印到调试窗口
    Debug.Print "收集到的评分：" & userScore
End Sub

注意：这些代码必须放在文档的ThisDocument模块里，不能随便放普通模块哦。

要把收集到的评分导入Excel，直接用VBA就能实现，比如写一个导出按钮的点击事件：

Private Sub ExportScoresToExcel()
    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim targetSheet As Object
    
    ' 创建Excel实例（调试时可以设为Visible=True，发布后可改False）
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    
    ' 新建工作簿，或者打开已有的评分表
    Set xlWorkbook = xlApp.Workbooks.Add
    ' 如果你要写入已有文件，替换成：
    ' Set xlWorkbook = xlApp.Workbooks.Open("C:\你的文件路径\用户评分表.xlsx")
    
    ' 获取第一个工作表
    Set targetSheet = xlWorkbook.Sheets(1)
    
    ' 写入表头
    targetSheet.Range("A1").Value = "问题编号"
    targetSheet.Range("B1").Value = "用户评分"
    
    ' 写入MyBar1的评分（如果有多个滚动条，可以循环遍历）
    targetSheet.Range("A2").Value = "问题1"
    targetSheet.Range("B2").Value = MyBar1.Value
    
    ' 保存文件（可选，根据需求调整路径）
    xlWorkbook.SaveAs "C:\你的保存路径\导出的评分.xlsx"
    
    ' 释放对象，避免内存泄漏
    Set targetSheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    
    MsgBox "评分已成功导出到Excel！"
End Sub

把这段代码放在ThisDocument模块里，再插入一个ActiveX按钮，把按钮的点击事件关联到这个子程序就行。

如果担心ActiveX控件在不同Word版本的兼容性问题，可以用内置的内容控件滑块：

• 开发工具→「内容控件」→「滑块」（有些版本叫“滚动块”）
• 右键滑块→「属性」，设置最小值0、最大值100、步长1，还可以给它加个标签方便识别
• 获取值的VBA代码更简单：

Private Sub GetSliderScore()
    Dim scoreControl As ContentControl
    ' 这里的"MySlider1"是你给内容控件设置的标签/标题
    Set scoreControl = ThisDocument.ContentControls("MySlider1")
    
    ' 注意：内容控件的滑块值是文本格式，需要转成整数
    MsgBox "当前评分：" & CInt(scoreControl.Range.Text)
End Sub

导出到Excel的逻辑和上面ActiveX的方案一致，只要把MyBar1.Value换成CInt(scoreControl.Range.Text)就可以了。

小提示：不管用哪种方案，记得把Word文档保存为.docm格式（启用宏的文档），否则VBA代码会失效。

内容的提问来源于stack exchange，提问作者Ádám Bukovinszki