Определить язык текста средствами VBA

[Luckyrich]

Здравствуйте уважаемые друзья,

Проблема следующая:

В Word 2003 макрос на VBA создает шаблон письма. Есть вариант выбора двуязычного шаблона (русский - английский). Т.е., в этом случае, создается сразу два письма в одном документе 1. на русском и 2., его копия-перевод, на английском.

Теперь собственно проблема:
Нужна часть скрипта которая бы проверяла на каком языке написан выделенный фрагмент текста в английской версии.


Например, если на русском, то выдать сообщение пользователю, что текст на русском языке и прекратить выполнение процедур, если на английском, то продолжить выполнение операций.

Необходимо, чтобы в выделенном фрагменте текста были проверенны все символы (буквы) на соответствие английский - русский.

Причина: в этой части шаблона располагаются наименования компаний, которые в русской версии письма могут быть как на русском языке, так и на английском. Макрос автоматически вставляет эти данные в обе части документа и, в том случае, если в английской части оказался русский текст, то другая часть скрипта предложит транслитерировать его или же ввести оригинальное наименование на английском языке. НО! До этого этапа необходимо определить язык текста (рус или англ).

Буду чрезвычайно благодарен любой помощи!

С уважением,

Николай

[Sasha_Smirnov]

Сообщение от Luckyrich

Буду чрезвычайно благодарен любой помощи!

Ну вот что пока нащупал:

MsgBox Application.Language

показывает 1049, если язык Word русский.

Есть свойство

Selection.LanguageDetected

(равно False, когда язык не определён, и когда язык определён — True).

Вообще-то надо попробовать включить запись макросов — и затем определить язык в точке ввода. Как вам идейка? Ну я сам попробовал, и ничего нового:

Selection.LanguageID = wdRussian

А wdRussian = 1049. Осталось применить это при побуквенном просмотре текста:

if Selection.LanguageID = wdRussian then 'тут вам придётся самому подумать - что именно делать'

(Только больше не цитируйте меня, постов пока всего два, и ясно что к чему. И шрифт для сайта знакомств лучше сделать обычным - кто близорук, возьмёт лупу!)

[Luckyrich]

Сообщение от Sasha_Smirnov

Ну вот что пока нащупал:

MsgBox Selection.LanguageID

показывает 1049, если язык Windows русский. Язык Word не определил (пока).

Есть свойство
Selection.LanguageDetected
(равно False, когда язык не определён, и когда язык определён — True).

Но вот что с этим со всем делать...

Большое Вам спасибо Александр Смирнов!

К сожалению, у меня небольшой опыт в программировании и, что делать с перечисленными выше данными я тоже не знаю...

Но похоже в первом случае мы определим язык ввода, а во втором проверим тот факт был ли определен язык или нет...

Само по себе переключение языка ввода или раскладки клавиатуры не составляет проблемы, равно как и определение факта этих действий.


НЕОБХОДИМО перебрать все буквы выделенного фрагмента и проверить их на принадлежность к русскому или английскому языку по кодировке символа или как-то ещё.

Тем не менее, огромное Вам спасибо за участие!!!

С уважением,

Николай

[Sasha_Smirnov]

Тем временем я обнаружил пост*, где я уже пользовался ветвлением алгоритма в зависимости от раскладки клавиатуры (то есть языка ввода). (В долговременной памяти сей навык, увы, не осел!)
_____________________
* посмотрите и его, и под ним

[Sasha_Smirnov]

Ну вот видите же, шрифт а-ля сайт знакомств не катит! Даже у Успешных и Богатых.