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

bjydfq · 发表于 2008-10-30 14:47

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

雨农 · 发表于 2008-11-24 12:14

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

intil · 发表于 2008-11-26 14:18

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

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

zyb971 · 发表于 2008-11-29 09:08

借鉴了!

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

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 · 发表于 2008-12-3 11:32

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

zzkcfwh · 发表于 2008-12-3 15:23

看完这个帖，把偶累得不行了，还没来得及学习。

，这里这么多高人，偶哪天才能有此水平呀

iijia · 发表于 2008-12-9 17:25

实用.支持 ~

fannie19 · 发表于 2008-12-14 23:50

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

ggsmart · 发表于 2008-12-18 17:14

强人啊，收集了

ycqdq · 发表于 2008-12-22 20:58

学习了，很管用的，

		自动登录	找回密码
密码			免费注册