使用VBA在Office中输入特殊字符（2/3）

在上一篇博文《使用VBA在Office中输入特殊字符（1/3）》中使用Byte数组实现了输入特殊字符，但是如果获得代表特殊字符的Byte数组的值呢？其实也不复杂。
假设工作表中活动单元格已经插入了指定特殊字符（此处仍以月亮字符为例）。

Sub GetByteStr()
    Dim sSym As String, iCnt As Integer
    Dim arrByte() As Byte
    Dim arrNum() As String
    sSym = Selection
    arrByte = sSym
    iCnt = UBound(arrByte)
    ReDim arrNum(iCnt)
    For i = 0 To iCnt
        arrNum(i) = CStr(arrByte(i))
    Next
    Debug.Print Join(arrNum)
End Sub

运行示例代码，在立即窗口中得到如下结果，这就是输入特殊字符时使用的Byte数组的值。

60 216 25 223

【代码解析】
第5行代码读取活动单元格的值，如果特殊字符在Word文档中，可以使用如下代码读取。

sSym = Selection

第6行代码将字符转换为Byte数组，
第7行代码获取Byte数组的下标上界。
第8行代码声明字符型动态数组。
第9~11行代码将Byte数组转存到字符数组中。
第12行代码将数组组合为一个字符串，并输出到立即窗口中。

---

代码很简单，有的读者可能继续提问，如果只是知道特殊字符的Unicde值，文档（Excel或者Word）中也没有这个字符，那该怎么办呢？其实也可以解决，这里涉及到UTF编码的格式，且听下回分解。

---

相关链接：

1. 使用VBA在Office中输入特殊字符（1/3）
2. 使用VBA在Office中输入特殊字符（2/3）
3. 使用VBA在Office中输入特殊字符（3/3）