Вариаблес в файле Ворда

Sub Variables_добавить_в_документ()
    Dim i As Long
    Dim Старт_программы As Date
    'присвоение переменной даты начала программы
    Старт_программы = Time
 
    For i = 1 To 32767
        ActiveDocument.Variables.Add Name:=i, Value:=String(65280, "a")  
        Debug.Print i
    Next
MsgBox$ "Начато: " & Старт_программы & vbCrLf & _
            "Окончено: " & Time & vbCrLf & _
            "Время обработки: " & DateDiff("n", Старт_программы, Time) & " мин." & vbCrLf & _
            "2 139 029 760-два миллиарда 139 миллионов 29 тысяч 760 variables добавлено в документ"
End Sub

 
    For i = 1 To 8173
        ActiveDocument.Variables.Add Name:=i, Value:=String(65280, "a")
        Debug.Print i
    Next
    ActiveDocument.Variables.Add Name:=8174, Value:=String(8339, "a")