It is an excellent starting point for what you've in mind. It's straightforward to alter/extend it to import glossary items. You can use the subroutine below to add a term to EA.
Code:
Public Sub addterm(termType As String, name As String, description As String) � �Dim myTerm As EA.Term � � �Set myTerm = EARepos.Terms.AddNew(name, termType) � �myTerm.Type = termType � �myTerm.Meaning = description � �'save term � �myTerm.Update � �'refresh glossary collection � �EARepos.Terms.Refresh End Sub