Эффект набора текста в Word с помощью VBA

Предлагаю готовый код VBA для того, чтобы получить эффект набора текста в документе Word. То есть, при выполнении макроса, в том месте, где установлен курсор, начнется печать заранее подготовленного вами текста. И это будет выглядеть так, как будто текст набирает человек.

Готовый VBA код набора текста в Word

Sub TypeLikeHuman()
    ' Объявление переменной text и инициализация текстом
    Dim text As String
    text = "Привіт Світ!"
    
    ' Объявление переменной индекса i
    Dim i As Integer
    
    ' Цикл для каждого символа в тексте
    For i = 1 To Len(text)
        ' Вставка одного символа в выделенную область
        Selection.TypeText Mid(text, i, 1)
        
        ' Задержка 1 секунда перед набором следующего символа
        Dim endTime As Double
        endTime = Timer + 1
        Do While Timer < endTime
            DoEvents
        Loop
    Next i
End Sub