Public Sub NEW_OnLoaded(ribbon As IRibbonUI)
Set UI = ribbon
If (InStr(Application.Application.Path, "Kingsoft") = 0) Then
Set NEWebHost = CreateObject("NEWeb.WordAddinHost")
Else
Set NEWebHost = CreateObject("NEWps.WordAddinHost")
End If
NEWebHost.OnLoaded
End Sub