功能
- 功能简介
- 更多系统
400-099-0376
400-099-0376
由于对word宏命令不太熟悉，我将个任务分解为三部分，第一，了解光标的移动指令;第二，了解加拼音的命令;第三，对排版进行一些美化调整。
第一点，并不复杂，简单录制一个宏，移动一下光标，就很清楚地看到移动的指令了。
Selection.MoveRightunit:=wdCharacter,Count:=1,Extend:=wdExtend
接下来，我在msdn简单浏览了一下selection对象以及一些move前缀的方法，初步了解了一些移动的指令。
第二点，我右键点了下菜单，在自定义菜单中找了“拼音标准”对应的命令FormatPhoneticGuide，以此为关键字进行搜索，很快就得到了在宏中使用的简单调用方法，但这个方法我觉得不科学，如果有软件处理响应时间跟不上，很容易就会崩溃，但没找到更好的方法：
SendKeys"{enter}",2‘模拟键盘输入，2是等待时间，因为加拼音标注的对话框调用在后面，为了正确向它发出回车键信息，要等几秒，事实上这个值越大越安全，但等待时间太长会影响程序的运行效率，这个方法我认为不太好，但没有找到FormatPhoneticGuide的其它信息，也就将就使用这个笨方法了!Application.RunMacroName:="FormatPhoneticGuide"
第三点，为了让加了拼音后的文字容易阅读，我决定每个字之间都加上一个空格，否则的话，拼音全挤在一起，会令小孩在拼读时迷惑，这相当简单，录制一个宏，就按一下键盘箭头右移动，然后打个空格就好了，在程序中可以将这个动作循环一下。
Addpinyin的宏很快就写好，我一句句单步了一下，没有什么意外，效果还不错，直接上结果图。喜欢的朋友可以也可以看看完整的宏代码。
| 代码如下：复制内容 |
| 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 |
实操指南：如何监控聊天中的敏感信息?这款秘籍软件，轻松掌握微信聊天动态
电影《摩登时代》里，流水线工人就连在吃饭时都要用“自动喂食机”提高效率，这样才能挤出更多时间投入工作。虽然现在打工人不至于此，但有些老板仍然放心不下……像企业聊天记录往往蕴含着大量的敏感信息。为了确保信息安全，监控聊天中的敏感信息成为了一项必要且重要的工作。以下是一款秘籍软件，帮助你轻松掌握微信聊天动态，确保信息安全。...
怎么监控员工上班情况？2024企业管理的四种方法，老板们不容错过
怎么监控员工上班情况？2024企业管理的四种方法，老板们不容错过员工上班在干什么？摸鱼？打游戏？老板该怎么管理？如何才能监视怎么监控员工上班情况？监控员工上班情况可以通过多种方式实现，但重要的是要确保这些措施既合法又合规，同时尊重员工的隐私权。以下是一些建议的方法：一、制定明确的行为规范与奖惩制度1、制定行为规范： 企...
怎么监控员工上班情况？快速监控员工状态
怎么监控员工上班情况？快速监控员工状态在企业管理中，如何有效监控员工上班情况，确保工作效率与团队协作，是每位老板都需面对的课题。本文为您揭秘五招快速监控员工状态的实用技巧，不仅能帮助您实时掌握员工动态，还能提升整体管理效率。作为老板，掌握这些技巧，将让您在企业管理中游刃有余，轻松应对各种挑战。一、使用安企神软件实时监控...
安企神桌管软件：提升企业管理效率的全能助力
安企神桌管软件：提升企业管理效率的全能助力在当今竞争激烈的商业环境中，企业必须不断优化管理和运营流程，以提高效率和盈利能力。安企神桌管软件正是这样一款面向中小企业的管理工具，能够帮助企业在多方面提升综合管理水平。本文将详细探讨安企神桌管软件给企业带来的多重价值。一、全方位的管理功能安企神桌管软件是一款集成了多种管理功能...
安企神：揭开终端安全管理软件的神秘面纱
安企神：揭开终端安全管理软件的神秘面纱在数字化日益普及的今天，企业的网络安全问题愈发显得重要。数据泄露、网络攻击等事件层出不穷，如何保障企业内部信息的安全性成为众多企业关心的焦点。安企神终端安全管理软件应运而生，作为一款专业的安全管理工具，它的功能与优势备受关注。本文将全面揭秘安企神软件的核心功能、应用场景及其在终端安...
