Sub 逐句拼音st = Selection.Started = Selection.EndFor sen = Selection.Sentences.Count To 1 Step -1With Selection.Start = st.End = edEnd WithSelection.Sentences(sen).SelectApplication.Run MacroName:="FormatPhoneticGuide"ed = Selection.StartNext senEnd SubSub 清除拼音Selection.WholeStoryTextLength = Selection.Characters.CountSelection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1For i = 0 To TextLengthWith Selection.Range.PhoneticGuide Text:="", Alignment:=wdPhoneticGuideAlignmentOneTwoOne, Raise:=11, FontSize:=8, FontName:="MS Gothic"End WithSelection.MoveRight Unit:=wdCharacter, Count:=1NextSelection.WholeStoryEnd Sub注:批量拼音的宏代码引用自叶岳峰的博客《全文拼音标注的Word自定义宏》
推荐阅读
- 移家别湖上亭翻译
- 手机删除的视频的两种恢复方法 手机上删除的视频怎么找回来
- 教你把手机投屏到电视上的方法 手机投屏到电视上怎么操作
- 吃鲭鱼罐头上火吗？鲭鱼罐头的营养价值有哪些
- 白色车子清洗方法
- 上海什么路段外地车限行
- 皇帝柑上火还是降火皇帝柑的啥时候最好吃
- 雅马哈r6能上牌吗
- 上海磁悬浮列车速度
- 吃鹅蛋白上火吗？鹅蛋白的营养价值有哪些