Раскраска языков

[caute]

В наличии документ на четырех языках: русский, немецкий, английский, латинский (помечен как "без проверки орфографии"). Требуется раскрасить (покрасить только цвета шрифта, без подсветки фона - только font color, не highlight) последних трех языков разными цветами - скажем, синий, красный и (для латинских слов, помеченных как "без проверки") бирюзовый.
Раскраска нужна для всех частей текста, включая постраничные и концевые сноски. Подопытный кусочек документа прилагается.
Пособите, пожалуйста. Более сложный макрос на эту тему недавно написал ув. Скрипт тут:
http://www.programmersforum.ru/showthread.php?t=237703

[Скрипт]

caute, если один раз надо применить, то воспользуйтесь "Найти и заменить". Поставьте в поле "Найти" курсор и с помощью кнопки "Формат" выберите искомый язык. Затем поставьте курсор в поле "Заменить" и выберите нужный цвет шрифта. Затем нажмите "Заменить все".

[caute]

поковырялся с макросами для пакетной замены, завтра продолжу, в крайнем случае, вы правы, не так уж много там дел для очумелых ручек

[Скрипт]

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

Макросы нужны для частого применения.

[caute]

на самом деле, документов около 20-ти, но это главы одной книги
пригодится ли такой именно макрос в будущем, трудно сказать, но его можно было бы модифицировать, меняя цвета и языки, для других подобных текстов.
Мне подумалось, что это может быть всего пара строк кода. Достаточно большой макрос, конечно, не стоит писать в данном случае

[Скрипт]

Макрос для немецкого языка. Обрабатывает основную часть документа и сноски.

Sub Макрос1()
    
    '1. Выделение цветом основной части документа.
    With ActiveDocument.Range.Find
        'Код получил с помощью макрорекордера.
        .LanguageID = wdGerman
        .Replacement.Font.Color = 6299648
        .Execute Replace:=wdReplaceAll
    End With
    
    '2. Выделение цветом сносок, которые находятся в конце страницы.
    'Сначала смотрим, существуют ли сноски, чтобы не возникло ошибки.
    If ActiveDocument.Footnotes.Count > 0 Then
        With ActiveDocument.StoryRanges(wdFootnotesStory).Find
            .LanguageID = wdGerman
            .Replacement.Font.Color = 6299648
            .Execute Replace:=wdReplaceAll
        End With
    End If
    
    '3. Выделение цветом концевых сносок.
    If ActiveDocument.Endnotes.Count > 0 Then
        With ActiveDocument.StoryRanges(wdEndnotesStory).Find
            .LanguageID = wdGerman
            .Replacement.Font.Color = 6299648
            .Execute Replace:=wdReplaceAll
        End With
    End If
    
End Sub

[Скрипт]

Вот так можно изменить код, когда нужно делать одно и то же действие несколько раз. Нужно запускать процедуру "Main". Из процедуры "Main" будет запускаться процедура "Procedure_1".

Sub Main()

    '1. Выделение цветом основной части документа.
    Call Procedure_1(ActiveDocument.Range)
    
    '2. Выделение цветом сносок, которые находятся в конце страницы.
    'Сначала смотрим, существуют ли сноски, чтобы не возникло ошибки.
    If ActiveDocument.Footnotes.Count > 0 Then
        Call Procedure_1(ActiveDocument.StoryRanges(wdFootnotesStory))
    End If
    
    '3. Выделение цветом концевых сносок.
    If ActiveDocument.Endnotes.Count > 0 Then
        Call Procedure_1(ActiveDocument.StoryRanges(wdEndnotesStory))
    End If
    
End Sub

Sub Procedure_1(myRange As Word.Range)
    
    With myRange.Find
        'Код получил с помощью макрорекорда.
        .LanguageID = wdGerman
        .Replacement.Font.Color = 6299648
        .Execute Replace:=wdReplaceAll
    End With
    
End Sub

[caute]

спасибо, попробую!
а для раскраски "без проверки орфографии" куда Selection.Find.NoProofing вставить?

[Скрипт]

caute: а для раскраски "без проверки орфографии"

а что такое "без проверки орфографии"? Приведите пример.

[caute]

все латинские слова в тексте помечены как "без проверки орфографии", чтобы Word их не подчеркивал как ошибочно написанные
там моем в тексте - scientia intuitiva, intuitiva cognitio, например