Function getTranslation(lang As String, identifier As String) As String Select Case lang Case "ru" getTranslation = getRussian(identifier) Exit Function Case Else getTranslation = getEnglish(identifier) Exit Function End Select End Function Function getRussian(identifier As String) As String Select Case identifier Case "noFileWithStylesFound" getRussian = "Файл-шаблон, содержащий стили для загрузки в документ не был задан. " & chr(10) &"Вы можете выбрать новый файл-шаблон. " & chr(10) & "Если файл-шаблон не будет выбран, то данный этап чистки будет пропущен." Exit Function Case "startQuietCleaningDescription" getRussian = "Вы хотите запустить чистку документа? " & chr(10) & "Здесь Вы можете также указать новый файл-шаблон." & chr(10) & "Стили из шаблона будут загружены в документ." Exit Function Case "buttonOk" getRussian = "Да" Exit Function Case "quietStartCleaningTitle" getRussian = "Подтверждение запуска чистки" Exit Function Case "noStylesFileDialogTitle" getRussian = "Файл со стилями не найден" Exit Function Case "buttonTemplateNotFoundSkip" getRussian = "Продолжить" Exit Function Case "buttonStop" getRussian = "Нет" Exit Function Case "buttonLoad" getRussian = "Указать шаблон" Exit Function Case "buttonNameToSelectFileWithStyles" getRussian = "Указать файл" Exit Function Case Else getRussian = getEnglish(identifier) End Select End Function Function getEnglish(identifier As String) As String Select Case identifier Case "noFileWithStylesFound" getEnglish = "Template with styles wasn't found. You can choose template on your computer. This stage of cleaning will be skipped if no file chosen." Exit Function Case "startQuietCleaningDescription" getEnglish = "Do you want to start document cleaning?" & chr(10) & "You can choose template with styles to load them in process of the cleaning." Exit Function Case "noStylesFileDialogTitle" getEnglish = "Template file not found" Exit Function Case "quietStartCleaningTitle" getEnglish = "Confirmation" Exit Function Case "buttonTemplateNotFoundSkip" getRussian = "Proceed" Exit Function Case "buttonOk" getEnglish = "Ok" Exit Function Case "buttonStop" getEnglish = "Cancel" Exit Function Case "buttonLoad" getEnglish = "Set template" Exit Function Case "buttonNameToSelectFileWithStyles" getEnglish = "Select file" Exit Function Case Else getEnglish = "No translation" End Select End Function