Изменить шрифт нескольких подстрок в ячейке Excel

Question

У меня есть шрифт для отображения определенных символов. Они печатаются на листе со стандартным шрифтом по умолчанию. Я могу идентифицировать эти символы, а затем изменить шрифт этих символов на свой символ, но с некоторыми проблемами заставить его работать правильно, когда в ячейке содержится более одного идентифицированного символа.

Например, и клетки могут содержать:

Это значение Х и Y, и Z

мне нужно изменить шрифт только из X, Y и Z.

Вот как я в настоящее время меняется шрифт символы с помощью VBA:

Sub InsertFont(insertRange As Range, symbolText As String, symbolPosition As Integer) 
    Dim cellText As String 
    Dim newValue As String 
    cellText = insertRange.Value2 
    newValue = Replace(cellText, symbolText, SymbolDict.Item(symbolText), 1, 1) 
    insertRange.Value2 = newValue 
    With insertRange.Characters(symbolPosition, Len(SymbolDict.Item(symbolText))).Font 
     .Name = "MyFont" 
    End With 

End Sub 

пР oblem после каждого изменения шрифта, остальная часть ячейки возвращается к шрифту по умолчанию! Как я могу получить изменения шрифта для всех изменений?

конечный результат:

Это значение X и Y, а ☹

Answer 1

по предложению @TimWilliams через комментарии, вот решение, которое работает:

Sub InsertSymbol(insertRange As Range, symbolText As String, symbolPosition As Integer) 

    Dim cellText As String 
    Dim newValue As String 
    insertRange.Characters(symbolPosition, Len(symbolText)).Delete 
    insertRange.Characters(symbolPosition, 0).Insert SymbolDict.Item(symbolText) '2nd parameter 0 to not overwrite any characters 
    insertRange.Characters(symbolPosition, 1).Font.Name = "My Symbol Font Name" 

End Sub