vba复制微软拼音的方法实例

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

复制代码