[广告]: 5000条免费短信任你发
自己动手给BB的联系人加上汉字拼音首字母
想必各位BBer们都知道，黑莓7290的联系人查找方式不支持汉字拼音首字母查询。那我们能否自己给BB的联系人名称前加上首字拼音字母呢？这样的话，在联系人中查找起来岂不方便？各位BBer说了，我这不是多此一举吗？在MAXPDA上下载一个现成的软件不就行了，这样是好啊，但是我觉得还是DIYER的好，更何况下载的软件有时也未必好用啊！废话一大堆，还是言归正传吧：
1、将BB连接至电脑，进行同步。
2、打开MicroSoft Office OutLook。
3、选择联系人，看到你的BB上的所有联系人吧。
4、点击菜单“文件”----->“导入和导出”----->执行操作选择“导出到一个文件"------>点击“下一步”------>创建文件类型选择"MicroSoft Excel"
------>点击“下一步”------>导出文件夹位置选择“联系人”------>点击“下一步”------>选择导出的文件存放位置------>点击“下一步”------>点击“完成”
5、经过以上步骤我们已经将BB的联系人生成了一个Excel表格文件，接下来的事情就是在这张表中给联系人加姓名首字母了。
6、打开刚才生成的那张联系人的EXCEL工作薄，同时新建一个工作薄，把联系人表复制到新建工作薄的Sheet1表，在Sheet2表中添加一个按钮控件，点击菜单“工具”------>“宏"------>"Visual Basic 编辑器"。
7、清空编辑界面的所有代码内容，然后将下面的代码复制粘贴进行：
Private Sub CommandButton1_Click()
For m = 2 To 123 '这里的123是我的联系人表包括表头的总行数,替换成你自己的联系人表的总行数就行
zf = Sheet1.Cells(m, 4)
hz = Getpy(zf) & zf
Sheet1.Cells(m, 4) = hz
Next
End Sub
Function Getpy(ByVal X As String) As String
Dim i As Integer
For i = 1 To Len(X)
If Mid(X, i, 1) <> " " And Asc(Mid(X, i, 1)) < 0 Then Getpy = Getpy & pinyin(Mid(X, i, 1))
Next
Getpy = LCase(Getpy)
End Function
Function pinyin(ByVal X As String) As String
Dim i As Integer
Const hanzi = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座ABCDEFGHJKLMNOPQRSTWXYZZ"
If X = "座" Then pinyin = "Z"
For i = 1 To 23
If Asc(X) >= Asc(Mid(hanzi, i, 1)) And Asc(X) < Asc(Mid(hanzi, i + 1, 1)) Then
pinyin = Mid(hanzi, 24 + i, 1)
Exit For
End If
Next
End Function
8、保存关闭Visual Basic 编辑器后，点击Sheet2中的按钮，返回Sheet1，哇塞，所有联系人表中的汉字姓前是不是都加上了拼音字母！（极个别没有加成功的就辛苦大家自己手工加一下吧。
9、将Sheet1的内容复制（除过表头）选择性粘贴到从OutLook中导出的那张联系人表中，必须是选择性粘贴回去哦，不要覆盖表头。
10、保存联系人表后，进入OutLook中删除所有联系人，在从菜单“文件”------>“导入和导出"中导入加好首字母的的联系人表。
11、删除BB中所有的联系人，重新连接BB到电脑进行同步。
12、进入BB的联系人看一下吧，是不是一切OK了？Sample Text
相关关键字: 拼音 汉字 字母 联系人
|
