word给整篇文章注释拼音

问题描述：近期给小孩打印课文，想到加注拼音方便小孩阅读。

目标：给每个汉字标注拼音，同时为了方便阅读每个汉字之间预留一个空格。（因为word注音如果不空格，拼音连在一起不便区分）

遇到的困难：word 2016的注音功能只能给大概二三十字一次性注音（未详细数到底多少），对于成百上千字的文档注音就很繁琐

解决方法：使用word中的宏，在网上搜集资料找到这篇文章：

https://www.cnblogs.com/DreamlikeAttic/p/3655863.html

对它做了一些修改,步骤如下：

1）删掉了宏中分隔文字的片段：（有这段代码的宏处理速度会大大降低，且word总是崩溃）

2）使用word中替换命令，实现文字的自动分隔，（分隔速度极快）

Ctrl+H（替换快捷键）-> “空格^&”(不含引号）并把高级选项中的 “使用通配符”打开。

3）调好预期的字体，大小等等

4）运行如下宏

Sub AddPinYin()
'Author:MissileCat Date:20140410 version:1.0.0
' Addpinyin 宏
'为一篇完整的word文字加上标音标注Dim tintTreatingCount As IntegerDim tstrCharA As StringDim tlngCurPos As LongDim tintA As IntegerSelection.WholeStorytstrText = Selection.TexttintTextLength = Selection.Characters.Counttintlinestart = 1tintTreatingCount = 0Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtendSelection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1For tintloopx = 1 To tintTextLengthtlngCurPos = Selection.MoveRight(unit:=wdCharacter, Count:=1, Extend:=wdExtend)tstrCharA = Right(Selection.Text, 1)If AscW(tstrCharA) < 255 And AscW(tstrCharA) > -255 ThenIf tintTreatingCount > 0 ThentintA = Len(Selection.Text)SendKeys "{enter}", 1Application.Run MacroName:="FormatPhoneticGuide"Selection.MoveRight unit:=wdCharacter, Count:=tintAtintTreatingCount = 0End IfElsetintTreatingCount = tintTreatingCount + 1End IfNextEnd Sub

按照我这个顺序执行，最大的优点就是正确率高，（我实验的几次都没有出现错误），但是原作者的方法有很多漏注的字，但是也存在很大的缺点就是，速度慢。

原因是我先分隔汉字，然后注音，就是每个字都执行一次注音程序，而原作者方法是多个字一注音。

如有大神有更快的方法，希望给我评论。

word给整篇文章注释拼音相关推荐

迎战2022 - Python中文翻译《环球时报》整篇文章实战演示，调用有道翻译API接口进行英文转中文翻译实例训练
Python 调用有道翻译 API 接口翻译<环球时报>整篇文章实战演示第一章:翻译效果展示 ① 翻译文章示例一[得益于中国援助的数字电视,喀麦隆农村社区享受着非洲国家杯] ② 翻译文章 ...
jieba分词_自然语言NLP必备(1)，jieba工具 5 行代码对整篇文章分词
自然语言是什么?下面来看看百度百科的介绍: 自然语言处理是计算机科学领域与人工智能领域中的一个重要方向.它研究能实现人与计算机之间用自然语言进行有效通信的各种理论和方法.自然语言处理是一门融语言学.计 ...
整篇文章翻译软件提供多平台翻译api接口
整篇文章翻译软件提供多平台翻译api接口,可以实现整篇文章翻译成中文.英文.阿拉伯语和其他多个语种,整篇文章翻译软件不仅支持整篇文章翻译,还可以保留原文格式段落,通过对存放文件夹进行监控,可以完成文件 ...
在word中，整篇文章想要在每一章另起一页
把鼠标放在页面的最下面,点插入--分隔符--选分页符--确定.还有一个办法就是快捷键:Ctrl+Enter 转载于:https://www.cnblogs.com/guosj/p/4617719.ht ...
将WORD文档中整篇文章的自动编号消除，但原序号不变
Sub 全文编号转文本() '将文档中全部自动编号转成正常文本. ActiveDocument.Range.ListFormat.ConvertNumbersToText End Sub
怎样免费翻译整篇英文Word文档
大家在工作中,使用word文档的时候,很多人肯定都有过这样的场景,一份几十页的外文资料拿在手上看不懂.复制黏贴去百度翻译,头发都白了还没翻译几页,还容易出错.小编就是遇到过这样的情况,像我们在碰到需要 ...
word精华样式篇之三使用样式集让所有文档风格统一
回顾:样式是样式是一组格式特征,例如字体名称.字号.颜色.段落对齐方式和间距. 一. 保存自己的专属样式我们将自己工作文档设置好了各级标题格式后,希望以后打开word就直接使用这种样式,在关闭当前文 ...
转: 如何写好一篇文章
第一份sci是这样写出来的我的导师是这样说的,先去看看1区的文献,在看看4区的文献,告诉我他们有什么区,不同.然后写一份报告给我. 导师告诉我写论文是时候需要问问自己以下4个问题你为何要开始(Why ...
如何设计日志采集系统？不妨看看这篇文章
点击上方蓝色"方志朋",选择"设为星标" 回复"666"获取独家整理的学习资料! 来源:r6d.cn/9K3Q 概述日志从最初面向人类演变 ...

word给整篇文章注释拼音

word给整篇文章注释拼音相关推荐

最新文章

热门文章