'проверка повторяемости слова
        With ActiveDocument.Range.Find
            'поиск в начале слова
            .Text = "<" & Первое_слово1 & ","
            .Wrap = wdFindStop    'поиск остановить, остановит поиск по достижении конца
            'эта опция отвечает за поиск с использованием подстановочных знаков
            'не работает когда установлено в положение False, или её нет вообще
            ' если установлена в положение True, тогда работает
            .MatchWildcards = True
            Счётчик = 0
            Do While .Execute = True
                '.Parent.Select 'выделит искомые слова
                Счётчик = Счётчик + 1
            Loop
            'можно узнать количество повторяемости слова только применив Do While-Loop
            'If Not .Execute Then Beep 'если искомое слово не имеется, имеется один раз, имеется более одного раза
            'If .Execute Then Beep 'если искомое слово ...
            If Счётчик = 0 Then Selection.TypeText Text:=Первое_слово1 & ", " & Первое_слово1 & vbCrLf
        End With