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

[Скрипт]

Процедура "Procedure_2" не связана с языками, поэтому её можно сделать один раз, а не в каждом языке.

Sub Main()

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

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

Sub Procedure_2(myRange As Word.Range)

    'Выделение слов, у которых стоит флажок ("Word 2010"):
        'вкладка "Рецензирование" - группа "Язык" - "Язык" -
        '"Язык проверки правописания..." - флажок "Не проверять правописание".
    'Эта процедура для всех языков.
    
    
    With myRange.Find
        .NoProofing = True
        .Replacement.Font.Color = 10498160
        .Execute Replace:=wdReplaceAll
    End With
    
End Sub

[caute]

макрос работает ОК, спасибо огромное еще раз!