Type Info:
AltTranslations As AltTranslations
Dim TU As TransUnit Dim AltTransColl As AltTranslations Set TU = Application.ActiveTransUnit Set AltTransColl = TU.AltTranslations