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

Узнай цену своей работы

Формулировка задачи:

Здравствуйте. Пишу макрос для ворда, надо перебирать символы. При отладке вылетает "Ошибка № 5941 Запрашиваемый номер семейства не существует" на этой строке кода (когда пытаюсь извлечь символ номер i):
Весь код:
В чем проблема?

Решение задачи: «Ошибка № 5941 Запрашиваемый номер семейства не существует - MS Word»

textual
Листинг программы
Sub ToCalibri1()
  Selection.HomeKey wdStory
  With Selection.Find
    .ClearFormatting
    .Replacement.Text = ""
    .Text = "[}]*[{]"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
  End With
  While Selection.Find.Execute
    ActiveDocument.Range(Selection.Start + 1, Selection.End - 1).Font.Name = "Calibri"
  Wend
End Sub

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы