Type Info:
TranslationEditBar As TranslationEditBar
Dim TranslEditBar As TranslationEditBar Set TranslEditBar = Application.Windows.TranslationEditBar