请问word怎么批量注拼音?我全选只能注几行的拼音,还很乱,下面是我注...

发布网友

我来回答

共3个回答

热心网友

2016版在word文稿中给汉字加注拼音的步骤：

在Word文稿中选择好要添加注拼音的汉字

点击菜单栏的格式再点击中文版式再点击拼音指南

在拼音指南里面就会看到我们所要添加拼音的文字以经添加上拼音

在拼音指南里面可以根据个人的实际需要来选择（对齐方式、字体、字号）

在拼音指南里面选择好之后可以进行预览

如果是不需要的情况可以点击拼音指南里面的全部删除

热心网友

用小写英文字母注。

热心网友

用宏指令，批量添加拼音。
方法如下：
宏——查看宏——创建宏——设置个宏名称——把下面的代码拷贝进去，保存。
宏——查看宏——运行你创建的宏，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