[5分]如何自动引用丢失控件

如图：

知道手动解决这个问题（先去掉勾勾，然后再保存，再重新引用本机上低版本的控件14.0）

但是：

    我需要代码自动来更新这2个丢失的引用。

问题：

    在网站上找过很多自动引用的实例，可是仅仅能够将正常的控件重新引用，而丢失的却不能

面对这种情况，求解，想了好几天，试了很多方法都不行。哪位高手帮忙干掉他。

本人代码如下：

    strDB = CurrentProject.Path & "\Accessoft-列出程序中引用的所有类库和控件.mdb"
    Dim i As Integer


    Set appAccess = CreateObject("Access.Application")
    appAccess.OpenCurrentDatabase strDB
    
    Dim REFE As References        '声明REFE为引用
    Dim strFileName As String   '声明strFileName为文本型变量
    Dim rf
    Set REFE = appAccess.Application.References
    Debug.Print REFE.Count
        
'    For Each rf In REFE    '在引用中循环查找
'            Debug.Print rf.Name, rf.FullPath, rf.Guid, rf.Major, rf.Minor
'        Select Case rf.Name
'        Case "Excel", "Outlook", "Word"
'
'        End Select
'    Next


    strFileName = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
    Set rf = appAccess.Application.References.AddFromFile(strFileName)    '重新引用OLE
    strFileName = "C:\Program Files (x86)\Microsoft Office\Office14\MSOUTL.OLB"
    Set rf = appAccess.Application.References.AddFromFile(strFileName)    '重新引用OLE
    strFileName = "C:\Program Files (x86)\Microsoft Office\Office14\MSWORD.OLB"
    Set rf = appAccess.Application.References.AddFromFile(strFileName)    '重新引用OLE
''




    appAccess.CloseCurrentDatabase
    Set appAccess = Nothing