当然可以实现！作为VBA新手，这个需求完全不用换其他方案，用Word VBA结合Excel对象模型就能搞定。我给你拆解成一步步的实现方法，代码都写好了，你可以根据自己的实际情况调整：

1. 前期准备 #

• 确认你的Excel文件路径和工作表名称，比如假设文件存在C:\server_data.xlsx，数据在Sheet1中（如果不是，后续代码里要替换成实际值）
• 在Word里添加控件：打开「开发工具」选项卡，插入ActiveX控件里的ComboBox两个，分别命名为cboServer和cboVersion（右键控件→「属性」里修改名称）；再插入一个TextBox命名为txtContent，用来展示最终的content内容。

2. 文档打开时加载Server列表到第一个组合框 #

把这段代码放到Word的ThisDocument模块里（按Alt+F11打开VBA编辑器，找到ThisDocument）：

Private Sub Document_Open()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim ws As Object
    Dim lastRow As Long
    Dim i As Long
    
    ' 后台启动Excel，不显示窗口
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    
    ' 打开目标Excel文件
    Set xlWB = xlApp.Workbooks.Open("C:\server_data.xlsx") ' 替换成你的文件路径
    Set ws = xlWB.Sheets("Sheet1") ' 替换成你的工作表名称
    
    ' 获取Server列（假设在A列）的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(-4162).Row ' -4162对应Excel的xlUp常量
    
    ' 清空组合框避免重复加载
    cboServer.Clear
    
    ' 从第2行开始填充（假设第1行是表头）
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value <> "" Then
            cboServer.AddItem ws.Cells(i, "A").Value
        End If
    Next i
    
    ' 关闭Excel并释放资源
    xlWB.Close SaveChanges:=False
    xlApp.Quit
    Set ws = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

3. 选择Server后，加载对应Version到第二个组合框 #

给cboServer添加「Change」事件（在VBA编辑器里，左侧选cboServer，右侧选Change）：

Private Sub cboServer_Change()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim ws As Object
    Dim lastRow As Long
    Dim i As Long
    Dim selectedServer As String
    
    selectedServer = cboServer.Value
    If selectedServer = "" Then Exit Sub ' 未选择Server时直接退出
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    
    Set xlWB = xlApp.Workbooks.Open("C:\server_data.xlsx")
    Set ws = xlWB.Sheets("Sheet1")
    
    lastRow = ws.Cells(ws.Rows.Count, "B").End(-4162).Row
    
    ' 清空Version组合框
    cboVersion.Clear
    
    ' 筛选对应Server的Version（Version在B列）
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value = selectedServer And ws.Cells(i, "B").Value <> "" Then
            cboVersion.AddItem ws.Cells(i, "B").Value
        End If
    Next i
    
    ' 释放资源
    xlWB.Close SaveChanges:=False
    xlApp.Quit
    Set ws = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

4. 选择Version后，显示对应的Content #

给cboVersion添加「Change」事件：

Private Sub cboVersion_Change()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim ws As Object
    Dim lastRow As Long
    Dim i As Long
    Dim selectedServer As String
    Dim selectedVersion As String
    
    selectedServer = cboServer.Value
    selectedVersion = cboVersion.Value
    
    ' 未选全时清空内容
    If selectedServer = "" Or selectedVersion = "" Then
        txtContent.Value = ""
        Exit Sub
    End If
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    
    Set xlWB = xlApp.Workbooks.Open("C:\server_data.xlsx")
    Set ws = xlWB.Sheets("Sheet1")
    
    lastRow = ws.Cells(ws.Rows.Count, "C").End(-4162).Row
    
    ' 查找对应Server和Version的Content（Content在C列）
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value = selectedServer And ws.Cells(i, "B").Value = selectedVersion Then
            txtContent.Value = ws.Cells(i, "C").Value
            Exit For ' 找到后直接退出循环
        End If
    Next i
    
    ' 未找到内容时提示
    If txtContent.Value = "" Then
        txtContent.Value = "未找到对应内容"
    End If
    
    ' 释放资源
    xlWB.Close SaveChanges:=False
    xlApp.Quit
    Set ws = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

新手注意事项 #

• 记得替换代码里的Excel文件路径、工作表名称，以及列的位置（如果你的server不在A列，要改成对应的列名或列号）
• 保存Word文档时要选择.docm格式（启用宏的文档），否则宏无法运行
• 运行前确保Excel文件没有被其他程序锁定，否则会报错
• 可以先分步测试：先运行文档打开事件，看Server列表是否加载成功，再测试Version的加载，最后测试Content的显示，逐步调试更容易排查问题

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