Public Function CheckReferences()
 
Dim ref As Reference
Dim comp$
For Each ref In CurrentProject.Application.References
    Set ref = References.AddFromGuid("{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}")   ' OFFICE15
    Debug.Print ref.Name, ref.Guid, ref.IsBroken, ref.FullPath
    
    'Office        {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}    False         C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLL
    'Office        {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}    False         C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL
    
    comp = txtCompName
    If ref.Name = "Office" And comp Like "*CTXDCN*" And ref.IsBroken = True Then
        CurrentProject.Application.References.Remove ref    ' îòêëþ÷èì OFFICE16
        Set ref = References.AddFromFile("C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL")   ' OFFICE15
        Exit For
    End If

Next ref
Set ref = Nothing
End Function