How do I check if a reference is active?

[Mescoman]

Hey hey people.

I have been using the Microsoft Office Library reference for some of my code, and it seems that it doesnt come installed/activated automatically when the code is ran on other computers. I was wondering if there was a way to check (through the activation of a macro) if the reference (if thats the right thing to call "Microsoft Word 16.0 Object Library") is installed/active, and if its not installed/active to offer a choice to the user to install/activate it.

I reached references through this:

Many thanks!

 

[Domenic]

You can certainly list all references that have been selected, and I'll show you how to do that in a moment.

However, I would suggest that instead of using early binding you use late binding. In the latter case, the reference gets resolved at run-time, where you can add some error handling.

So, for example, first un-select the reference to the Word object library. Then use the following code. It first checks whether Word is already open. If so, it uses that instance. If not, it opens a new instance of Word. If the Word library isn't available or doesn't exist, a message is displayed saying so, and then it exits the procedure.

    On Error Resume Next
    Dim wd As Object
    Set wd = GetObject(, "Word.Application")
    If Err <> 0 Then
        Err.Clear
        Set wd = CreateObject("Word.Application")
        If Err <> 0 Then
            MsgBox "Word application is unavailable!", vbExclamation
            Exit Sub
        End If
    End If
    On Error GoTo 0

Now, to list the references that have been selected, first allow access to the VBA project model . . .

File >> Options >> Trust Center >> Trust Center Settings >> Macro Settings >> Developer Macro Settings >> select Trust access to the VBA project object module

Then try . . .

    Dim ref As Variant
    For Each ref In ThisWorkbook.VBProject.References
        Debug.Print ref.Name
    Next ref

Hope this helps!

 

[Mescoman]

Hey sorry about taking so long to answer, work has me very busy. When I get time I will review your answer and if it works Ill mark it as a solution. Thank you for taking the time to try and help me!