汉字如何转成拼音并批量打印(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列的汉字都依次转换成拼音。