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

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

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

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

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

漢字轉(zhuǎn)拼音完整宏代碼.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

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