Type Info:
ActiveProject As TranslationProject
Dim App As Application Dim Proj As TranslationProject Set App = Application Set Proj = App.ActiveProject