将Range中的特殊字符转换为HTML

Question

使用功能RangetoHTML（OutBody作为范围）'由Ron de Bruin于2006年10月28日更改。此功能将工作簿中的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