如何保留微软的拼音字段(PhoneticCharacters )?

mythqiu

本文的关键词:微软拼音,PhoneticCharacters ,Phonetics

问题:对B2单元格操作(如大写转换\替换某些字符)再写入B2,会导致 微软拼音字段 消失

请教,如何才不会使上面的拼音字段消失?

网上和论坛关于这个的资料太少,实在无法解决了,请懂的大神的指教在下一二.

添加拼音字段是没有问题,但是添加时需要指定字符位置,本来想读取拼音字段,可以读取出来,却不知道如何知道拼音字段的位置,无法知道位置,
就无法再次写入上去.


--------------------------------------------问题解决,用的循环判断,个人认为不是最佳方式,如果哪位知道微软有相关的语句,还请告知.



补充内容 (2018-8-14 20:44):
非常 感谢 fxl447098457 提供的vba内置方法取得拼音字段的位置!我那个循环就是渣程序.

mythqiu

我想了一个解决办法:将拼音字段读出,然后再写入,不过有个问题,拼音字段虽然能读出,去不知道改如何取得每个拼音字段的位置,这样就无法写入了.

mythqiu

1. <blockquote>Sub 分别显示拼音字段()

复制代码

用了3个嵌套循环解决了.......睡觉.....

mythqiu

已经解决,但个人在不清楚微软是否有现成的语句处理这个问题,如果微软有,这不是一个好办法.
本文的关键词:微软拼音,PhoneticCharacters ,Phonetics
穷尽循环找出拼音字段的位置.用了3个嵌套循环语句.
拼音字段问题(已解决).rar (14.36 KB, 下载次数: 5)

2018-8-9 13:31 上传

点击文件名下载附件
3个嵌套循环解决

至于后续处理写入数组或者字典,再取出赋值给单元个的语句,对这个有需求的,我估计也不是困难的事情,几句代码的问题.

mythqiu

修改一点错误,增加一个循环判断,避免无谓的循环.

fxl447098457

一个循环足矣。
Sub 分别显示拼音字段()
Dim Rng As Range, i&, rPc&, x As Phonetics
Set Rng = Range("B2")
rPc = Rng.Phonetics.Count
For i = 1 To rPc
Set x = Rng.Phonetics(i)
MsgBox "第" & i & "个拼音字段为:" & x.Text
MsgBox "第" & i & "个拼音字段位置为:" & x.Start & ",长度为:" & x.Length
Next
End Sub

mythqiu

fxl447098457 发表于 2018-8-14 20:06
一个循环足矣。
Sub 分别显示拼音字段()
Dim Rng As Range, i&, rPc&, x As Phonetics

感谢感谢.....我一直不知道这个语法,翻遍了帮助,查找论坛都没有找到这个方法!!!
结果我用的穷尽循环查找位置,所以效率太差!!

非常感谢!!!

mythqiu

fxl447098457 发表于 2018-8-14 20:06
一个循环足矣。
Sub 分别显示拼音字段()
Dim Rng As Range, i&, rPc&, x As Phonetics

测试了,果然好用,我不知道这个语句,结果自己搞的循环,苦于效率低下.非常感谢,鲜花只能赠送一次,真心想奉上全部的鲜花.我修改我的程序去了.

mythqiu

1. Sub 复制拼音字段()
   
2. Dim Rng As Range, i&, rPc&, x As Phonetics
   
3.     Set Rng = Range("B1")
   
4.     Range("B2") = Range("B1").Value
   
5.     rPc = Rng.Phonetics.Count
   
6.     For i = 1 To rPc
   
7.         Set x = Rng.Phonetics(i)
   
8.         'MsgBox "第" & i & "个拼音字段为:" & x.Text
   
9.         'MsgBox "第" & i & "个拼音字段位置为:" & x.Start & ",长度为:" & x.Length
   
10.         Range("B2").Characters(x.Start, x.Length).PhoneticCharacters = x.Text
    
11.     Next
    
12. End Sub

复制代码

备份，记录一下是如何把拼英字段复制过来的。