备案控制台
开发者社区 开发与运维 文章 正文

如何在Word文档中批量添加汉字注音

2022-11-23 645
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： 所谓的汉字注音，就是给汉字上方加注拼音。

如何在Word文档中批量添加汉字注音

所谓的汉字注音，就是给汉字上方加注拼音。

汉字注音

在Office里面，这个功能叫做 “拼音指南”（Phonetic Guide）。

拼音指南

拼音指南一次只能够处理最多30个字，一篇文章不可能只有30个字，上百个字是很正常的，人工处理就会很累。所以，需要做到自动化，做到自动化有两种方式可以做到：

  1. 调用Office的功能；
  2. 直接修改docx文档。

调用Office的功能

调用Office的功能又有两个途径：

  1. VBA；
  2. .net。

其实，这两种途径最终都是调用的Office提供的API。

VBA

我查过了VBA的资料，总共有3个API可用：

  1. FormatPhoneticGuide
  2. Range.PhoneticGuide method (Word)
  3. Application.GetPhonetic method (Excel)

网上最多的用是第一种，使用FormatPhoneticGuide宏，我试过是能用的，但是存在着一个很大的问题：它不能够定制拼音的样式。而且，相对来说不够稳定。

'Word批量使用默认样式加注拼音
Sub BatchAddPinYinByDefaultStyle()
    On Error Resume Next
    Selection.WholeStory
    TextLength = Selection.Characters.Count
    Selection.EndKey
    For i = TextLength To 0 Step -30
        If i < 30 Then
            Selection.MoveLeft Unit:=wdCharacter, Count:=i
            Selection.MoveRight(Unit:=wdCharacter, Count:=i,Extend:=wdExtend)
        Else
            Selection.MoveLeft Unit:=wdCharacter, Count:=30
            Selection.MoveRight(Unit:=wdCharacter, Count:=30,Extend:=wdExtend)
        End If
        SendKeys "{Enter}"
        Application.Run "FormatPhoneticGuide"
    Next
    Selection.WholeStory
End Sub

另外还有一个清除注音的方法，用到了第二个API：

'Word批量清除拼音
Sub CleanPinYin()
    Application.ScreenUpdating = False
    Selection.WholeStory
    TextLength = Selection.Characters.Count
    Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
    For i = 0 To TextLength
        With Selection
             .Range.PhoneticGuide Text:=""
        End With
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next
    Selection.WholeStory
    Application.ScreenUpdating = True
End Sub

这一个API既可以清除注音，也可以标明注音。只需要给Text赋值拼音即可。这个API好在可以定制拼音的样式，麻烦的是需要自己去计算出拼音，本来是找到了一个计算拼音的内置方法：GetPhonetic，但是，它只存在于Excel里面，在Word里边无法进行调用。

要实现内置的GetPhonetic，我在网上看到有两种实现方法：

  1. 自行实现的VBA，但是实现不够完整：https://github.com/StinkCat/CH_TO_PY
  2. 利用golang写了一个RestFull服务器提供服务，然后提供给VBA调用：https://github.com/yangjianhua/go-pinyin

我们来讨论第二种方法，比较灵活。

首先是golang的拼音计算服务：

package main

import (
    "flag"
    "fmt"
    "strconv"

    "github.com/gin-gonic/gin"
    "github.com/mozillazg/go-pinyin"
)

var a pinyin.Args

func initPinyinArgs(arg int) { // arg should be pinyin.Tone, pinyin.Tone1, pinyin.Tone2, pinyin.Tone3, see go-pinyin doc
    a = pinyin.NewArgs()
    a.Style = arg
}

func getPinyin(c *gin.Context) {
    han := c.DefaultQuery("han", "")
    p := pinyin.Pinyin(han, a)

    c.JSON(200, gin.H{"code": 0, "data": p})
}

func getPinyinOne(c *gin.Context) {
    han := c.DefaultQuery("han", "")
    p := pinyin.Pinyin(han, a)
    s := ""

    if len(p) > 0 {
        s = p[0][0]
    }

    c.JSON(200, gin.H{"code": 0, "data": s})
}

func allowCors() gin.HandlerFunc {
    return func(c *gin.Context) {
        c.Writer.Header().Set("Access-Control-Allow-Origin", "*")
        c.Writer.Header().Set("Access-Control-Allow-Credentials", "true")
        c.Writer.Header().Set("Access-Control-Allow-Headers", "Content-Type, Content-Length, Accept-Encoding, X-CSRF-Token, Authorization, accept, origin, Cache-Control, X-Requested-With")
        c.Writer.Header().Set("Access-Control-Allow-Methods", "POST, OPTIONS, GET, PUT, DELETE")
        if c.Request.Method == "OPTIONS" {
            c.AbortWithStatus(204)
            return
        }
        c.Next()
    }
}

func main() {
    // init pinyin output format
    initPinyinArgs(pinyin.Tone)

    fmt.Print("\n\nDEFAULT PORT: 8080, USING '-port portnum' TO START ANOTHER PORT.\n\n")

    port := flag.Int("port", 8080, "Port Number, default 8080")
    flag.Parse()
    sPort := ":" + strconv.Itoa(*port)

    // using gin as a web output
    r := gin.Default()
    r.Use(allowCors())
    r.GET("/pinyin", getPinyin) // Call like GET http://localhost:8080/pinyin?han=我来了
    r.GET("/pinyin1", getPinyinOne)
    r.Run(sPort)
}

接着，我们来封装自己的GetPhonetic：

'从Json字符串中提取data字段的数据
Function getDataFromJSON(s As String) As String
    With CreateObject("VBScript.Regexp")
        .Pattern = """data"":""(.*)"""
        getDataFromJSON = .Execute(s)(0).SubMatches(0)
    End With
End Function

'使用http组件调用拼音转换服务获取拼音字符
Function GetPhonetic(strWord As String) As String
    Dim myURL As String
    Dim winHttpReq As Object

    Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

    myURL = "http://localhost:8080/pinyin1"
    myURL = myURL & "?han=" & strWord

    winHttpReq.Open "GET", myURL, False
    winHttpReq.Send

    GetPhonetic = getDataFromJSON(winHttpReq.responseText)
End Function

'测试GetPhonetic方法
Sub testGetPhonetic()
    ret = GetPhonetic("汗")
    MsgBox ret
End Sub

判定字符是否中文的方法：

'判断传入的Unicode是否为中文字符
Function isChinese(uniChar As Integer) As Boolean
    isChinese = uniChar >= 19968 And uniChar <= 40869
End Function

最后组装生成拼音注音的VBA脚本：

'Word批量拼音注音
Sub BatchAddPinYin()
    Application.ScreenUpdating = False
    Dim SelectText As String
    Dim PinYinText As String
    Selection.WholeStory
    TextLength = Selection.Characters.Count
    Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
    For i = 0 To TextLength
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        With Selection
            SelectText = .Text'基准文字
            If isChinese(AscW(SelectText)) Then'判断是否为中文字符
                PinYinText = GetPhonetic(SelectText)'基准文字 转换为 拼音文字
                If PinYinText <> "" Then
                    .Range.PhoneticGuide _
                        Text:=PinYinText, _'拼音文本
                        Alignment:=wdPhoneticGuideAlignmentCenter, _'对齐方式, see: https://learn.microsoft.com/en-us/office/vba/api/word.wdphoneticguidealignmenttype
                        Raise:=0, _'偏移量（磅）
                        FontSize:=10, _'字号（磅）
                        FontName:="等线"'字体
                End If
            End If
        End With
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next
    Selection.WholeStory
    Application.ScreenUpdating = True
End Sub

根据golang服务代码的提供者所说，它比较明显的缺点是对多音字的处理不如Word原来的拼音指南，所以需要后期进行手工校正。

后期校正肯定是必须的，就好比古文里边还有一些通假字，发音是不一样的，这个，我想哪怕是拼音指南也做不好的吧。

完整的BAS文件如下：

'判断传入的Unicode是否为中文字符
Function isChinese(uniChar As Integer) As Boolean
    isChinese = uniChar >= 19968 And uniChar <= 40869
End Function

'从Json字符串中提取data字段的数据
Function getDataFromJSON(s As String) As String
    With CreateObject("VBScript.Regexp")
        .Pattern = """data"":""(.*)"""
        getDataFromJSON = .Execute(s)(0).SubMatches(0)
    End With
End Function

'使用http组件调用拼音转换服务获取拼音字符
Function GetPhonetic(strWord As String) As String
    Dim myURL As String
    Dim winHttpReq As Object

    Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

    myURL = "http://localhost:8080/pinyin1"
    myURL = myURL & "?han=" & strWord

    winHttpReq.Open "GET", myURL, False
    winHttpReq.Send

    GetPhonetic = getDataFromJSON(winHttpReq.responseText)
End Function

'测试GetPhonetic方法
Sub testGetPhonetic()
    ret = GetPhonetic("汗")
    MsgBox ret
End Sub

'Word批量拼音注音
Sub BatchAddPinYin()
    Application.ScreenUpdating = False
    Dim SelectText As String
    Dim PinYinText As String
    Selection.WholeStory
    TextLength = Selection.Characters.Count
    Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
    For i = 0 To TextLength
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        With Selection
            SelectText = .Text'基准文字
            If isChinese(AscW(SelectText)) Then'判断是否为中文字符
                PinYinText = GetPhonetic(SelectText)'基准文字 转换为 拼音文字
                If PinYinText <> "" Then
                    .Range.PhoneticGuide _
                        Text:=PinYinText, _'拼音文本
                        Alignment:=wdPhoneticGuideAlignmentCenter, _'对齐方式, see: https://learn.microsoft.com/en-us/office/vba/api/word.wdphoneticguidealignmenttype
                        Raise:=0, _'偏移量（磅）
                        FontSize:=10, _'字号（磅）
                        FontName:="等线"'字体
                End If
            End If
        End With
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next
    Selection.WholeStory
    Application.ScreenUpdating = True
End Sub

'Word批量使用默认样式加注拼音
Sub BatchAddPinYinByDefaultStyle()
    Application.ScreenUpdating = False
    On Error Resume Next
    Selection.WholeStory
    TextLength = Selection.Characters.Count
    Selection.EndKey
    For i = TextLength To 0 Step -30
        If i <= 30 Then
            Selection.MoveLeft Unit:=wdCharacter, Count:=i
            SelectText = Selection.MoveRight(Unit:=wdCharacter, Count:=i,Extend:=wdExtend)
        Else
            Selection.MoveLeft Unit:=wdCharacter, Count:=30
            SelectText = Selection.MoveRight(Unit:=wdCharacter, Count:=30,Extend:=wdExtend)
        End If
        SendKeys "{Enter}"
        Application.Run "FormatPhoneticGuide"
    Next
    Selection.WholeStory
    Application.ScreenUpdating = True
End Sub

'Word批量清除拼音注音
Sub CleanPinYin()
    Application.ScreenUpdating = False
    Selection.WholeStory
    TextLength = Selection.Characters.Count
    Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
    For i = 0 To TextLength
        With Selection
             .Range.PhoneticGuide Text:=""
        End With
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next
    Selection.WholeStory
    Application.ScreenUpdating = True
End Sub

.net

它其实也是调用的Office的API，这个跟VBA调用API没有本质上的区别，是一样的。

VS2022需要安装：Visual Studio Tools for Office（VSTO）

然后，在项目当中引用程序集：Microsoft.Office.Interop.Word ，VS2022有14和15版本。

我本机的是Office16，而vs2022并没有提供相关的程序集，所以我没有办法使用，也就没有做进一步的探索了。

我查文档在Microsoft.Office.Interop.Word命名空间下，有一个Range.PhoneticGuide方法，接口看起来跟VBA调用的差不多，使用上应该也是差不太多的。

直接修改docx文档

docx的文档本质上是一个经过了zip压缩的OpenXML文档。

基本上，主流的办公软件都支持这样一个标准：微软Office、苹果iWork、WPS Office、Google Docs。

拼音指南在Office Open XML中的类型名是：CT_Ruby。

Ruby，Wiki百科中解释为：注音，或称注音标识、加注音、标拼音、拼音指南。

文档可见于：

我稍微研究了下，拼音指南的节点：<w:ruby>。

其下面有若干个子节点：

  1. <w:rubyPr>是拼音指南的样式，
  2. <w:rt>是拼音指南的拼音文字，
  3. <w:rubyBase>是拼音指南的基准文字。

一个比较完整的拼音指南的XML是这样的：

<w:ruby>
    <w:rubyPr>
        <w:rubyAlign w:val="center"/>
        <w:hps w:val="26"/>
        <w:hpsRaise w:val="50"/>
        <w:hpsBaseText w:val="52"/>
        <w:lid w:val="zh-CN"/>
    </w:rubyPr>
    <w:rt>
        <w:r w:rsidR="00002ED0" w:rsidRPr="00002ED0">
            <w:rPr>
                <w:rFonts w:ascii="等线" w:eastAsia="等线" w:hAnsi="等线"/>
                <w:color w:val="333333"/>
                <w:sz w:val="26"/>
                <w:shd w:val="clear" w:color="auto" w:fill="FFFFFF"/>
            </w:rPr>
            <w:t>diǎn</w:t>
        </w:r>
    </w:rt>
    <w:rubyBase>
        <w:r w:rsidR="00002ED0">
            <w:rPr>
                <w:rFonts w:ascii="华文楷体" w:eastAsia="华文楷体" w:hAnsi="华文楷体"/>
                <w:color w:val="333333"/>
                <w:sz w:val="52"/>
                <w:shd w:val="clear" w:color="auto" w:fill="FFFFFF"/>
            </w:rPr>
            <w:t>点</w:t>
        </w:r>
    </w:rubyBase>
</w:ruby>

参考资料

文章标签：
Ruby
Go
API
数据格式
XML
杨粼波
目录
相关文章
亚丁号
|
2月前
如何快速批量删除word文档中空白行?
如何快速批量删除word文档中空白行?
亚丁号
50 1
abcd552191868
|
2月前
|
Linux
C 统计英文文本word（单词）个数
关于状态机的文章请自行百度，这里主要是在统计时用到了2个状态，IN是代表字符是属于word内，OUT代表当前字符不属于word内，那么什么时候word的个数需要增加1呢，即是status从OUT到IN时（说明当前指针马上就要走到word里了）
abcd552191868
20 1
greework
【Word】关闭段落/表格等首字母大写功能
【Word】关闭段落/表格等首字母大写功能
greework
112 0
游客ywxcp53cgkqwi
Word中，英文不能自定义换行问题
Word中，英文不能自定义换行问题
游客ywxcp53cgkqwi
69 0
Word中，英文不能自定义换行问题
rothschild666
将excel文件中的内容转换成word文本（去表格）
将excel文件中的内容转换成word文本（去表格）
rothschild666
415 0
将excel文件中的内容转换成word文本（去表格）
度假的小鱼
批量/去掉office 2010 Word中标题前的黑点
学习批量/去掉office 2010 Word中标题前的黑点
度假的小鱼
72 0
批量/去掉office 2010 Word中标题前的黑点
erabbit
怎么去掉word文档中的数字
怎么去掉word文档中的数字
erabbit
221 0
Lux_Sun
Word - Word 文档如何切换简体字和繁体字？
Word - Word 文档如何切换简体字和繁体字？
Lux_Sun
123 0
Word - Word 文档如何切换简体字和繁体字？
涂作权
|
Web App开发 XML Java
通过freemarker生成一个word,解决生成的word用wps打开有问题的问题，解决出word时中文文件名乱码问题，解决打开出word时打开的word出现问题的问题，出图片，解决动态列表
 通过freemarker制作word比较简单 步骤：制作word模板。制作方式是：将模板word保存成为xml----在xml的word模板中添加相应的标记----将xml的word文件的后缀名改成ftl文件（要注意的是生成xml格式要是2003格式的xml,也就是说拿到的word模板得是2003格式的，否则用wps打开word将会出现问题）   详细步骤如下： 模板制作（将要动态显示的
涂作权
4556 0
技术小甜
Word 2003中为什么修改一个段落的文章结果整篇文档的格式都变?
技术小甜
1226 0

热门文章

最新文章

  • 1
    Docker的Windows容器初体验
  • 2
    启动报错“No bootable device”
  • 3
    使用TDengine国产时序数据库存储能耗数据并通过钉钉机器人接收报警信息
  • 4
    解决跨域问题 Response to preflight request doesn't pass access control check
  • 5
    [机器学习] 1、《机器学习系统设计》学后总结
  • 6
    如何设计一个消息队列？
  • 7
    semaphore
  • 8
    Net设计模式实例之外观模式（Façade Pattern）(2)
  • 9
    《认知设计：提升学习体验的艺术》——学习者应该达到何种熟练程度
  • 10
    QuartZ Cron表达式在java定时框架中的应用
  • 1
    Flask实现内部接口----pycharm安装及新建，location代表着文件路径，下面是Python的环境，Flask是由Python开发的框架，Python文件接口ython通过GET发送
    27
  • 2
    文本，文字识别，PaddleOCR，如何删除，PaddleOCR详解，检测，方向分类器，识别，检测的意思是检查字符的位置，查像素坐标，方向分类器，能够实现180度的图像，字符识别是把识别字符
    17
  • 3
    基于SpringBoot+Vue的短视频广告发布系统的详细设计和实现(源码+lw+部署文档+讲解等)
    19
  • 4
    python -m pip ，SyntaxError: invalid syntax，下载需要pip的包
    19
  • 5
    Python安装pip
    23
  • 6
    文本，文字识别02----PaddleOCR基础概念及介绍，安装和使用，人工智能是一种使计算机模仿人类的一种技术，PaddleOCR的安装地址-https://www.paddlepaddle.org
    17
  • 7
    文本，文字扫描01，OCR文本识别技术展示，一个安卓App，一个简单的设计，文字识别可以应用于人工智能，机器学习，车牌识别，身份证识别，银行卡识别，PaddleOCR+SpringBoot+Andr
    16
  • 8
    基于SpringBoot+Vue的白优校园社团网站的详细设计和实现(源码+lw+部署文档+讲解等)
    16
  • 9
    Annotations are not allowed here，@PostMapper路径，不加；
    12
  • 10
    文本，wangEditor5教程-上传图片，在开发文档的菜单配置当中，去搜索里搜索图片，也可以找到，上传图片必须有服务端的图片，验证接口正确用postman，wangEditor的postman接口
    14

    • 相关电子书

    更多
  • 低代码开发师（初级）实战教程
  • 冬季实战营第三期：MySQL数据库进阶实战
  • 阿里巴巴DevOps 最佳实践手册
    • 下一篇
    部署LAMP环境（Alibaba Cloud Linux 3）