当我在word文件中输入特定的单词时，我希望从Excel的特定单元格中获取值。

Sub GetSpecificWordValue()
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim specificWord As String
    Dim specificValue As String
    
    ' 设置特定单词
    specificWord = "特定单词"
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel工作簿
    Set excelWorkbook = excelApp.Workbooks.Open("Excel文件路径")
    
    ' 获取特定单词所在的单元格的值
    specificValue = excelWorkbook.Names(specificWord).RefersToRange.Value
    
    ' 关闭Excel工作簿
    excelWorkbook.Close
    
    ' 释放对象
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    
    ' 在Word文档中插入获取到的值
    Selection.TypeText specificValue
End Sub