漢字如何轉成拼音并批量打印(1)

不知道大家有沒有遇到過漢字轉換成拼音的打印需求，正常我們得到的數據是漢字形式，但是在打印的時候需要把漢字的拼音也打印出來，那么如何把漢字轉換成拼音呢？如果遇到這種打印問題怎么解決呢？

在中瑯條碼標簽打印軟件中支持的有一個“腳本編程”的處理方法功能可以實現把漢字轉換成拼音，不過這個功能一般需要懂編程的小伙伴才能操作，把自己的漢字利用數據庫導入中瑯條碼打印軟件中，然后利用條碼打印軟件的腳本編碼代碼把漢字轉成拼音并批量打印出來，懂編程的小伙伴可以試試哦。今天給大家介紹一下另一種把漢字轉成拼音的方法，就是利用Excel中的“宏”功能實現，下面來詳細看一下。

把自己的漢字數據保存在一個Excel文件中，打開這個Excel文件，啟用“宏”功能，在工具里添加一個“宏”（我用的是office2003版本的Excel，使用宏的前提是自己的Excel支持宏功能）。

添加宏之后，通過快捷鍵（ALT+F11）打開然后編輯界面，插入一個模塊，打開模塊，在空白框中輸入以下內容并保存（由于代碼較多，文中只粘貼的部分，詳細代碼放在下面的一個文本文檔中可以下載查看）：

漢字轉拼音完整宏代碼.txt

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20318: pinyin = "a "

Case -20317 To -20305: pinyin = "ai "

Case -20304 To -20296: pinyin = "an "

Case -20295 To -20293: pinyin = "ang "

Case -20292 To -20284: pinyin = "ao "

Case -20283 To -20266: pinyin = "ba "

Case -20265 To -20258: pinyin = "bai "

（此處省略………）

Case -10260 To -10257: pinyin = "zui "

Case -10256 To -10255: pinyin = "zun "

Case -10254 To -10254: pinyin = "zuo "

Case Else: pinyin = p

End Select

End Function

Function getpy(str)

For i = 1 To Len(str)

getpy = getpy & pinyin(Mid(str, i, 1))

Next i

End Function

“宏”設置完成后返回Excel，選擇B列的第二個單元格輸入“=PROPER(getpy(A2))”點確定即可，其中函數“getpy(A2)”是把A2單元格漢字轉成拼音，但是轉成的拼音首字母是小寫，所以前面加了函數“PROPER()”，轉換后的拼音首字母是大寫。然后選中文本框鼠標放在右下角的正方形上，點擊下來，可以把A列的漢字都依次轉換成拼音。