我想使用VBA在word文件(它有20个表)的特定位置插入一个从excel到现有word文件的命名范围

Sub InsertNamedRangeFromExcel()
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim namedRange As Object
    Dim rangeToCopy As Object
    
    ' 创建Excel对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set excelWorkbook = excelApp.Workbooks.Open("Excel文件路径")
    
    ' 获取Excel中的命名范围
    Set namedRange = excelWorkbook.Names("命名范围名称")
    
    ' 获取命名范围的范围
    Set rangeToCopy = namedRange.RefersToRange
    
    ' 关闭Excel文件
    excelWorkbook.Close
    
    ' 释放Excel对象
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    
    ' 创建Word对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文件
    Set wordDoc = wordApp.Documents.Open("Word文件路径")
    
    ' 在特定位置插入命名范围
    rangeToCopy.Copy
    wordDoc.Bookmarks("特定位置的书签名称").Range.Paste
    
    ' 关闭Word文件
    wordDoc.Close
    
    ' 释放Word对象
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub