[求助]：如何输入汉语拼音及音调

chqsop

各位大侠：

       小虾遇到棘手事，请各位大侠不吝赐教：儿子（一年级）写关于奥运的文章，需在文章输入汉语拼音及音调，我却不知如何处理？Help me!!!!Thanks!!!

efan2000

查看Word的帮助文档。

1. 
   
2.   [FONT=courier new]
   
3. 拼音指南
   
4. 利用“拼音指南”功能，可在中文字符上标注汉语拼音。如果安装了 Microsoft 中文输入法 2.0 或更高版本，则能够自动将汉语拼音标注在选定的中文文字上。
   
5. 
   
6. 如果想使用这项功能，首先请选定一段文字。然后单击“格式”菜单的“中文版式”子菜单中的“拼音指南”命令。如果安装了 Microsoft 中文输入法 2.0 或其后续版本，则汉语拼音就会自动标记在选定的中文字符上。
   
7. 
   
8. 一次最多只能选定 30 个字符并自动标记拼音。
   
9. 
   
10.   [/FONT]
    

复制代码

chqsop

楼上的大侠：

     先谢谢大侠help。请问如何象他书本上的标注方法，即有音调，而非数字表示音调？

efan2000

Word中没有直接的方法可以这样。
先按上面的做法生成拼音，然后运行下面的代码就可以了。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub Test()
   
6.     Dim f As Field
   
7.     Dim c As String
   
8.     Dim i As Integer
   
9.     For Each f In ActiveDocument.Fields
   
10.         c = Mid(f.Code, InStrRev(f.Code, "(") + 1, Len(f.Code) - (InStrRev(f.Code, "(") + 1) - 3)
    
11.         If InStr(c, "a") Then
    
12.             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "a") - 1) & Choose(Right(c, 1), "ā", "á", "ǎ", "à") & Mid(c, InStr(c, "a") + 1)
    
13.         ElseIf InStr(c, "o") Then
    
14.             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "o") - 1) & Choose(Right(c, 1), "ō", "ó", "ǒ", "ò") & Mid(c, InStr(c, "o") + 1)
    
15.         ElseIf InStr(c, "e") Then
    
16.             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "e") - 1) & Choose(Right(c, 1), "ē", "é", "ě", "è") & Mid(c, InStr(c, "e") + 1)
    
17.         ElseIf InStr(c, "i") Then
    
18.             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "i") - 1) & Choose(Right(c, 1), "ī", "í", "ǐ", "ì") & Mid(c, InStr(c, "i") + 1)
    
19.         ElseIf InStr(c, "u") Then
    
20.             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "u") - 1) & Choose(Right(c, 1), "ū", "ú", "ǔ", "ù") & Mid(c, InStr(c, "u") + 1)
    
21.         ElseIf InStr(c, "ü") Then
    
22.             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "ü") - 1) & Choose(Right(c, 1), "ǖ", "ǘ", "ǚ", "ǜ") & Mid(c, InStr(c, "ü") + 1)
    
23.         End If
    
24.         c = Left(c, Len(c) - 1)
    
25.         f.Code.Text = Left(f.Code, InStrRev(f.Code, "(")) & c & Right(f.Code, 3)
    
26.         f.Update
    
27.     Next
    
28.     Set f = Nothing
    
29. End Sub
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub Test()<br />     Dim f As Field<br />     Dim c As String<br />     Dim i As Integer<br />     For Each f In ActiveDocument.Fields<br />         c = Mid(f.Code, InStrRev(f.Code, "(") + 1, Len(f.Code) - (InStrRev(f.Code, "(") + 1) - 3)<br />         If InStr(c, "a") Then<br />             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "a") - 1) & Choose(Right(c, 1), "ā", "á", "ǎ", "à") & Mid(c, InStr(c, "a") + 1)<br />         ElseIf InStr(c, "o") Then<br />             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "o") - 1) & Choose(Right(c, 1), "ō", "ó", "ǒ", "ò") & Mid(c, InStr(c, "o") + 1)<br />         ElseIf InStr(c, "e") Then<br />             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "e") - 1) & Choose(Right(c, 1), "ē", "é", "ě", "è") & Mid(c, InStr(c, "e") + 1)<br />         ElseIf InStr(c, "i") Then<br />             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "i") - 1) & Choose(Right(c, 1), "ī", "í", "ǐ", "ì") & Mid(c, InStr(c, "i") + 1)<br />         ElseIf InStr(c, "u") Then<br />             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "u") - 1) & Choose(Right(c, 1), "ū", "ú", "ǔ", "ù") & Mid(c, InStr(c, "u") + 1)<br />         ElseIf InStr(c, "ü") Then<br />             If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "ü") - 1) & Choose(Right(c, 1), "ǖ", "ǘ", "ǚ", "ǜ") & Mid(c, InStr(c, "ü") + 1)<br />         End If<br />         c = Left(c, Len(c) - 1)<br />         f.Code.Text = Left(f.Code, InStrRev(f.Code, "(")) & c & Right(f.Code, 3)<br />         f.Update<br />     Next<br />     Set f = Nothing<br /> End Sub<br />   [/FONT]<br />

chqsop

感谢大侠帮助。
在问一个幼稚的问题（您千万别晕倒，我是一个菜鸟）：你给的程序到哪里运行？怎么用？可以再教我一下吗？

efan2000

在“工具”的下拉菜单中，选择“宏——Visual Basic 编辑器”中，直接粘贴上面的代码，按F5运行就可以了。

chqsop

楼上的大侠：

     非常感谢。方法很对，但是却不知为何提示有很多错误，难道它不能一次编译成功吗？一次只能编译几个字吗？望不吝赐教。小虾在此鞠躬了！

efan2000

一次最多只能选定30 个字符，指拼音字符，所以标注拼音时只能几个字几个字的处理，这是软件本身的限制。

chqsop

已经搞好。非常感谢大侠的帮助。亦感谢论坛给我学习的机会。愿论坛越来越火！！！

efan2000

上午的程序是有问题，只能处理单个汉字，对于两个或两个以上的词组就会出错，等以后完善了再上传吧。

efan2000

更新后的程序，使用时请测试一下准不准确。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub Test()
   
6.     Dim f As Field
   
7.     Dim c As String
   
8.     Dim i As Integer
   
9.     Dim n As Integer
   
10.     Dim tc As String
    
11.     Dim ts As String
    
12.     Dim j As Integer
    
13.     For Each f In ActiveDocument.Fields
    
14.         ts = ""
    
15.         i = InStrRev(f.Code, "(")
    
16.         tc = Mid(f.Code, i + 1, InStr(i + 1, f.Code, ")") - (i + 1))
    
17.         n = Len(f.Code) - InStr(i + 1, f.Code, ")") - 2
    
18.         For i = 1 To n
    
19.             For j = 1 To Len(tc)
    
20.                 If IsNumeric(Mid(tc, j, 1)) Then
    
21.                     c = Left(tc, j)
    
22.                     tc = Mid(tc, j + 1)
    
23.                     Exit For
    
24.                 End If
    
25.             Next
    
26.             If InStr(c, "a") Then
    
27.                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "a") - 1) & Choose(Right(c, 1), "ā", "á", "ǎ", "à") & Mid(c, InStr(c, "a") + 1)
    
28.             ElseIf InStr(c, "o") Then
    
29.                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "o") - 1) & Choose(Right(c, 1), "ō", "ó", "ǒ", "ò") & Mid(c, InStr(c, "o") + 1)
    
30.             ElseIf InStr(c, "e") Then
    
31.                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "e") - 1) & Choose(Right(c, 1), "ē", "é", "ě", "è") & Mid(c, InStr(c, "e") + 1)
    
32.             ElseIf InStr(c, "i") Then
    
33.                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "i") - 1) & Choose(Right(c, 1), "ī", "í", "ǐ", "ì") & Mid(c, InStr(c, "i") + 1)
    
34.             ElseIf InStr(c, "u") Then
    
35.                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "u") - 1) & Choose(Right(c, 1), "ū", "ú", "ǔ", "ù") & Mid(c, InStr(c, "u") + 1)
    
36.             ElseIf InStr(c, "ü") Then
    
37.                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "ü") - 1) & Choose(Right(c, 1), "ǖ", "ǘ", "ǚ", "ǜ") & Mid(c, InStr(c, "ü") + 1)
    
38.             End If
    
39.             c = Left(c, Len(c) - 1)
    
40.             ts = ts & c
    
41.         Next
    
42.         i = InStrRev(f.Code, "(")
    
43.         f.Code.Text = Left(f.Code, i) & ts & Mid(f.Code, InStr(i + 1, f.Code, ")"))
    
44.         f.Update
    
45.     Next
    
46.     Set f = Nothing
    
47. End Sub
    
48. 
    
49.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub Test()<br />     Dim f As Field<br />     Dim c As String<br />     Dim i As Integer<br />     Dim n As Integer<br />     Dim tc As String<br />     Dim ts As String<br />     Dim j As Integer<br />     For Each f In ActiveDocument.Fields<br />         ts = ""<br />         i = InStrRev(f.Code, "(")<br />         tc = Mid(f.Code, i + 1, InStr(i + 1, f.Code, ")") - (i + 1))<br />         n = Len(f.Code) - InStr(i + 1, f.Code, ")") - 2<br />         For i = 1 To n<br />             For j = 1 To Len(tc)<br />                 If IsNumeric(Mid(tc, j, 1)) Then<br />                     c = Left(tc, j)<br />                     tc = Mid(tc, j + 1)<br />                     Exit For<br />                 End If<br />             Next<br />             If InStr(c, "a") Then<br />                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "a") - 1) & Choose(Right(c, 1), "ā", "á", "ǎ", "à") & Mid(c, InStr(c, "a") + 1)<br />             ElseIf InStr(c, "o") Then<br />                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "o") - 1) & Choose(Right(c, 1), "ō", "ó", "ǒ", "ò") & Mid(c, InStr(c, "o") + 1)<br />             ElseIf InStr(c, "e") Then<br />                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "e") - 1) & Choose(Right(c, 1), "ē", "é", "ě", "è") & Mid(c, InStr(c, "e") + 1)<br />             ElseIf InStr(c, "i") Then<br />                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "i") - 1) & Choose(Right(c, 1), "ī", "í", "ǐ", "ì") & Mid(c, InStr(c, "i") + 1)<br />             ElseIf InStr(c, "u") Then<br />                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "u") - 1) & Choose(Right(c, 1), "ū", "ú", "ǔ", "ù") & Mid(c, InStr(c, "u") + 1)<br />             ElseIf InStr(c, "ü") Then<br />                 If IsNumeric(Right(c, 1)) Then c = Left(c, InStr(c, "ü") - 1) & Choose(Right(c, 1), "ǖ", "ǘ", "ǚ", "ǜ") & Mid(c, InStr(c, "ü") + 1)<br />             End If<br />             c = Left(c, Len(c) - 1)<br />             ts = ts & c<br />         Next<br />         i = InStrRev(f.Code, "(")<br />         f.Code.Text = Left(f.Code, i) & ts & Mid(f.Code, InStr(i + 1, f.Code, ")"))<br />         f.Update<br />     Next<br />     Set f = Nothing<br /> End Sub<br /> <br />   [/FONT]<br />

dlwjs

又学了一招，很好。祝还有这样的例子。

efan2000

其实平常我们对软件的使用仅是一部分的功能，多多对软件探索一下，会发现有很多新的东西，也可以学到很多有用的经验，使工作变的轻松。

chqsop

改进后的程序测试后没有问题，对词组的辨别很好。
发现对“的de5”的处理成"d"可能有问题。再一次感谢斑竹的帮助。.