VBS宏脚本获取汉字汉语拼音大写首字母

' 汉字拼音首字母大写
Function pinYin(hanZi As String) As String
	ascCode = Asc(hanZi)
	Select Case ascCode
		Case -20319 To -20284: pinYin = "A"
		Case -20283 To -19776: pinYin = "B"
		Case -19775 To -19219: pinYin = "C"
		Case -19218 To -18711: pinYin = "D"
		Case -18710 To -18527: pinYin = "E"
		Case -18526 To -18240: pinYin = "F"
		Case -18239 To -17923: pinYin = "G"
		Case -17922 To -17418: pinYin = "H"
		Case -17417 To -16475: pinYin = "J"
		Case -16474 To -16213: pinYin = "K"
		Case -16212 To -15641: pinYin = "L"
		Case -15640 To -15166: pinYin = "M"
		Case -15165 To -14923: pinYin = "N"
		Case -14922 To -14915: pinYin = "O"
		Case -14914 To -14631: pinYin = "P"
		Case -14630 To -14150: pinYin = "Q"
		Case -14149 To -14091: pinYin = "R"
		Case -14090 To -13319: pinYin = "S"
		Case -13318 To -12839: pinYin = "T"
		Case -12838 To -12557: pinYin = "W"
		Case -12556 To -11848: pinYin = "X"
		Case -11847 To -11056: pinYin = "Y"
		Case -11055 To -2050: pinYin = "Z"
		Case Else: pinYin = hanZi
	End Select
End Function

’ 汉语拼音首字母大写
Function getPinYin(hanYu)
	For i = 1 To Len(hanYu)
		getPinYin = getPinYin & pinYin(Mid(hanYu, i, 1))
	Next i
End Function