word拼音指南怎么批量给文字添加拼音
我使用word拼音指南给文字添加拼音的时候，我选中了所有文字，但是我一打开拼音指南，选中的文字就变成了一小部分，不知道为什么，添加完成后只有一小部分被添加了拼音，其他的没有变，我反复试了好几次都是这样，谁知道怎么一下把整个word里的文字都加上拼音？
不想借助其他工具，想使用word自带的功能，哪位高人指教下、
1、Word确实具有拼音识别的功能，但是，需要具备一个基本的条件，那就是你的微软中文输入法 是3.0 或更高版本，才能够给汉子注上拼音。首先，检查你的输入法是什么版本的，右键单击输入法，选择“设置”。
2、这样就会弹出【文本服务和语言】的窗口，可以看到输入法的版本为7.0，满足要求，接下来就可以使用拼音自动添加的功能了。
3、打开Word文件，如下图所示，使用鼠标选择基准文字用于添加拼音，就是图中被选中的文字。
4、选择好基准文字以后，就可以添加拼音，在【开始】选项卡上，找到“字体”-“拼音”，就是一个汉字上带有拼音的标记，点击即可。
5、这样就调出了【拼音指南】窗口，里边含有很多关于拼音的选项，先不管这些 ，点击确定按钮，看看添加拼音之后的效果。
6、如下图所示，虽然拼音是标出来了，但是总感觉不太美观，接下来就是控制拼音选项的事情了。
7、有4个关于拼音的控制选项，字体和字号一般我们就不用改了，这个是基于文字的，把对齐方式改为【居中】，偏移量就是拼音与文字的距离，将这个参数改为5，点击请确定，再看看效果吧。
8、效果是不是好了很多，有点像小学教科书上的拼音啦，赶紧尝试下吧。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2022-01-17
用宏指令，批量添加拼音。
方法如下：
宏——查看宏——创建宏——设置个宏名称——把下面的代码拷贝进去，保存。
宏——查看宏——运行你创建的宏，ok。
Sub AddPinYin()
'Author:MissileCat Date:20140410 version:1.0.0
' Addpinyin 宏
'为一篇完整的word文字加上标音标注
Dim tintTreatingCount As Integer
Dim tstrCharA As String
Dim tlngCurPos As Long
Dim tintA As Integer
Selection.WholeStory
tstrText = Selection.Text
tintTextLength = Selection.Characters.Count
tintlinestart = 1
tintTreatingCount = 0
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
For tintloopx = 1 To tintTextLength
tlngCurPos = Selection.MoveRight(unit:=wdCharacter, Count:=1, Extend:=wdExtend)
tstrCharA = Right(Selection.Text, 1)
If AscW(tstrCharA) < 255 And AscW(tstrCharA) > -255 Then
If tintTreatingCount > 0 Then
tintA = Len(Selection.Text)
SendKeys "{enter}", 2
Application.Run MacroName:="FormatPhoneticGuide"
Selection.MoveRight unit:=wdCharacter, Count:=tintA
tintTreatingCount = 0
End If
Else
tintTreatingCount = tintTreatingCount + 1
End If
Next
'为每个字都加上空格
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
'Selection.HomeKey unit:=wdStory
For tintloopx = 1 To tintTextLength
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Next
MsgBox "任务成功完成"
' .Range.PhoneticGuide Text:="lǐ", Alignment:= _
' wdPhoneticGuideAlignmentOneTwoOne, Raise:=15, FontSize:=8, FontName _
' :="宋体"
End Sub
方法如下：
宏——查看宏——创建宏——设置个宏名称——把下面的代码拷贝进去，保存。
宏——查看宏——运行你创建的宏，ok。
Sub AddPinYin()
'Author:MissileCat Date:20140410 version:1.0.0
' Addpinyin 宏
'为一篇完整的word文字加上标音标注
Dim tintTreatingCount As Integer
Dim tstrCharA As String
Dim tlngCurPos As Long
Dim tintA As Integer
Selection.WholeStory
tstrText = Selection.Text
tintTextLength = Selection.Characters.Count
tintlinestart = 1
tintTreatingCount = 0
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
For tintloopx = 1 To tintTextLength
tlngCurPos = Selection.MoveRight(unit:=wdCharacter, Count:=1, Extend:=wdExtend)
tstrCharA = Right(Selection.Text, 1)
If AscW(tstrCharA) < 255 And AscW(tstrCharA) > -255 Then
If tintTreatingCount > 0 Then
tintA = Len(Selection.Text)
SendKeys "{enter}", 2
Application.Run MacroName:="FormatPhoneticGuide"
Selection.MoveRight unit:=wdCharacter, Count:=tintA
tintTreatingCount = 0
End If
Else
tintTreatingCount = tintTreatingCount + 1
End If
Next
'为每个字都加上空格
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
'Selection.HomeKey unit:=wdStory
For tintloopx = 1 To tintTextLength
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Next
MsgBox "任务成功完成"
' .Range.PhoneticGuide Text:="lǐ", Alignment:= _
' wdPhoneticGuideAlignmentOneTwoOne, Raise:=15, FontSize:=8, FontName _
' :="宋体"
End Sub
第2个回答 2009-04-11
没有办法，只能一小部分小部分的加拼音本回答被提问者采纳
第3个回答 2009-04-11
没办法，用vba吧
不然就选没加上的部分，用F4键重复刚才的操作
不然就选没加上的部分，用F4键重复刚才的操作
第4个回答 2018-05-28
有人试过格式刷吗？有没有用？
相似回答