Ошибка № 5941 Запрашиваемый номер семейства не существует - MS Word - VBA

If ActiveDocument.Characters(i) = "}" Then

Sub ToCalibri()
'
' ToCalibri Macros
'
'
    Set Selected = ActiveDocument.Range(0, ActiveDocument.Characters.Count)
    Selected.Select
    
    Dim capture As Boolean
    Dim captureStart As Integer
    Dim captureEnd As Integer
    
    captureStart = 0
    captureEnd = 0
    capture = False
    
    'cycle to check every character
    For i = 1 To ActiveDocument.Characters.Count
        If ActiveDocument.Characters(i) = "}" Then
            captureStart = i
            capture = True
            
        ElseIf ActiveDocument.Characters(i) = "{" Then
            If capture Then
                Dim r As Range
                Set r = ActiveDocument.Range(captureStart + 1, captureEnd - 1)
                r.Select
                '==============================================
                Selection.Font.Name = "Calibri"
                Selection.MoveRight Unit:=wdCharacter, Count:=1
                '==============================================
                capture = False
                captureStart = i
            End If
        End If
    Next
End Sub