Type Info:
TranslationProjects As TranslationProjects
Dim Workspace As Workspace Dim Projs As TranslationProjects Set Workspace = Application.Workspace Set Projs = Workspace.TranslationProjects