Here is a macro to check what Addins MS Word installs. You can either run it in Word or as a DNS macro. Since it is a Word VBA procedure, you must reference it to Word if you use it as a DNS Macro.

Sub Main
'Procedure to display .wll addins, template addins, COM addins
'Caution if you have a lot off addins they might not display in a msgbox
'use debug.print instead

Dim strResult As String

'.wll addins
Count = 0
For Each aAddin In AddIns
If aAddin.Compiled = True And aAddin.Installed = True Then
Count = Count + 1
End If
Next aAddin
strResult = Str(Count) & " WLL's are loaded"
strResult = strResult & vbCrLf & vbCrLf

msg = MsgBox(strResult, vbInformation, ".Wll Addins")
'Debug.Print strResult

'.dot addins
strResult = ""

For Each oaddin In AddIns
strResult = strResult & oaddin.Name & " in " & oaddin.Path
If oaddin.Installed Then
strResult = strResult & " is loaded."
Else
strResult = strResult & " is not loaded."
End If
strResult = strResult & vbCrLf
Next oaddin
strResult = strResult & vbCrLf

msg = MsgBox(strResult, vbInformation, "Template . DOT addins")
'Debug.Print strResult

strResult = ""
'COM addins
strResult = strResult & "COM addins:" & vbCrLf
For n = 1 To Application.COMAddIns.Count
strResult = strResult & Application.COMAddIns(n).Description

If Application.COMAddIns(n).Connect Then
strResult = strResult & " is connected."
Else
strResult = strResult & " is not connected."
End If
strResult = strResult & vbCrLf
Next

msg = MsgBox(strResult, vbInformation, "COM Addins")
'Debug.Print strResult

MsgBox "DNS ProgID is " & _
Application.COMAddIns("Dragon.Word2000Support.1").ProgID & _
" and GUID is " & _
Application.COMAddIns("Dragon.Word2000Support.1").GUID

End Sub