Преобразование специальных символов в Range в HTML

Question

Использование функции RangetoHTML (OutBody As Range) 'Изменено Роном де Брейном 28 октября 2006 г. Эта функция преобразует лист Excel в моей книге в электронную почту Outlook.

Работает нормально для большинства из них, однако у меня есть специальный символ (зарегистрированный знак) после текстовой строки. На листе Excel размер шрифта равен 11, но при преобразовании в Outlook размер шрифта увеличивается в соответствии с текстом рядом с ним. Так как все остальное работает нормально, думая, что это потому, что был вставлен «специальный символ», и предполагая, что проблема в приведенной ниже функции. (который я не писал).

Можно ли изменить приведенный ниже код, чтобы обеспечить правильное определение размера специального символа?

OutBody.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
    .Cells(1).PasteSpecial Paste:=8
    .Cells(1).PasteSpecial xlPasteValues, , False, False
    .Cells(1).PasteSpecial xlPasteFormats, , False, False
    .Cells(1).Select
    Application.CutCopyMode = False
    On Error Resume Next
    .DrawingObjects.Visible = True
    .DrawingObjects.Delete
    On Error GoTo 0
End With