word如何批量添加拼音

1.Word如何快速加注汉语拼音

方法/步骤

首先打开需要加拼音的那一份文档，点击“开始”选项卡；

选中文字，如果整篇文档都需要加拼音，则可以按住Ctrl+A选中全部或者将鼠标放至文档最左边，当鼠标光标变为图中的白色箭头时点击鼠标左键三下，也可以快速选中全文。

在“开始--字体”选项卡里面，有一个带有拼音的“文”字。点击这个标志。

这个时候会弹出一个“拼音指南”对话框（如图所示），可以在这里调整文本的字体字号，调整好之后，点击确定。

这个时候，拼音就成功加上了。其实给文字Word里面一项很简单的操作，Word里面还有很多方便快捷的操作，只要自己多做几份文件这些功能就会慢慢摸索出来啦！

2.请问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:= _

' , Raise:=15, FontSize:=8, FontName _

' ：="宋体"

End Sub