[解决多音字]汉字转拼音的完美解决方案[12.11.29更新]

bjydfq

谢谢楼主...这个是根据word版本来的吧?多音字就是困难,还有就是姓氏也成问题...

雨农

我菜鸟一个，请教：怎样在EXCEL中使用这个宏？

intil

原帖由 雨农 于 2008-11-24 12:14 发表
我菜鸟一个，请教：怎样在EXCEL中使用这个宏？

打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块1"，点击
在右边的空白栏中粘贴

zyb971

借鉴了!

稍稍改动,可以转换成首字母大写的样式(不是只一个字母)

Private Function GetInitial(py As String) As String
    Dim Char1 As String
    Dim Char2 As String
    Dim i As Integer
    Char1 = Left(py, 1)
    Char2 = Mid(py, 2, Len(py) - 1)
            For i = 0 To UBound(sNotation1)
            Char1 = Replace(Char1, sNotation1(i), dNotation(i))
        Next
         GetInitial = UCase(Char1) + Char2
      If Not pvOnlyOneChar Then
        Select Case Char1
            Case "z", "c", "s"
               ' If Char2 = "h" Then GetInitial = GetInitial + Char2
        End Select
    End If
End Function

发现一些机上的兼容性问题
VISTA下OFFICE2007又同时安装OFFICE2003,会出现OLE错误
WIN2000下安装OFFICE2002拖动的时候报错

lx6772

正好要完成这样一项工作。谢谢了！

zzkcfwh

看完这个帖，把偶累得不行了，还没来得及学习。
，这里这么多高人，偶哪天才能有此水平呀

iijia

实用.支持 ~

fannie19

请问这个首个字母大写怎么加在原有基础上的vb中？
多谢

ggsmart

强人啊，收集了

ycqdq

学习了，很管用的，