Как создать макрос, который бы вставлял слово по первой набранной букве?

Posted by Chas under Basic

Например, в определенном месте текста начинаем писать слово «заочник», и если набрали только первые буквы «за», вставляется слово целиком

Скрипт

Sub Procedure_1()

    Dim myWords(1 To 2) As String

    Dim mySelection As String

    Dim myLen As Long

    Dim i As Long
    'Добавляем слова в массив. Массив нужен, чтобы

        'использовать цикл.

    myWords(1) = "текст"

    myWords(2) = "text"
    'Помещаем в переменную фрагмент слова, который мы ввели в документ.

        'Переменную используем, чтобы код быстрее работал,

        'чтобы каждый раз в цикле не делать одно и то же - не

        'узнавать какое у нас слово набрано.

    'Selection - это фрагмент документа, где находится курсор.

    'Words(1) - это первое слово в том месте, где находится курсор.

        'Слово берётся справа от курсора, поэтому в курсор не

        'попадает наш текст.

        'В данном случае указывать порядковый номер слова не имеет смысла,

        'т.к. курсор может быть только в одном слове. Несколько слов может

        'быть в объекте "Selection", если выделен фрагмент документа.

        'Но для написания кода в скобках нужно указывать порядковый

        'номер слова.

    'Previous - это предыдущее слово.

    'Text - это текст, который содержится в слове.

    mySelection = Selection.Words(1).Previous.Text
    'Помещаем в переменную "myLen" количество символов,

        'которое содержится в нашем фрагменте.

    myLen = Len(mySelection)
    'С помощью цикла с "i" просматриваем все слова из массива "myWords".

    For i = 1 To UBound(myWords) Step 1
        'Если фрагмент слова из документа совпадает

            'с началом слова из массива.

        If Left(myWords(i), myLen) = mySelection Then
            'Вставляем в документ остальную часть слова.

            'С помощью "Mid" берём из элемента массива нужный фрагмент текста.

            'myLen + 1 - это порядковый номер символа,

                'с которого нужно брать текст.

                'Если порядковый номер будет указан больше, чем

                'количество символов в строке, ошибки не произойдёт,

                'просто ничего не произойдёт.

            'У "Mid" есть ещё один параметр - количество символов,

                'которое нужно взять. Если этот параметр не указыать,

                'то берутся все символы до конца строки.

            Selection.TypeText Text:=Mid(myWords(i), myLen + 1)
            'Выходим из процедуры, т.к. задача выполнена.

            Exit Sub
        End If
    Next i
End Sub

тема на форуме

Похожие статьи

• Макрос, который находит повторяющийся текст при его вводе и выводит окно предупреждения
• Удаление пустых столбцов в таблице
• Открыть несколько книг excel из одной папки с одинаковым расширением
• Копирование части текста (выделенного полужирным) из ячейки
• Как найти совпадающие строки в двух листах книги?
• Аналог continue в VBA?
• как изменить номер колонки у адреса Area / Range?
• Макрос для очищения строк по критерию
• Как оптимизировать макрос VBA в Microsoft Office Excel?
• Проверка значения Inputbox (Microsoft Office Excel)