微软Office宏的一个bug.docVIP

微软Office宏的一个bug 　　A bug of Microsoft Office Macro 　　Dong Yamou 　　（Shaanxi Post and Telecommunication College，Xianyang 712000，China） 　　 　　摘要： 粗心的微软编程员竟然将宏操作中字体转换的语句写反了，使用录制宏进行格式转化和进行VBA编程的程序员要特别注意了。本文中笔者指出了错误所在语句，并给出了修改方法。 　　Abstract: Microsoft programmers even carelessly write the statement of operation of font conversion macro against the use of recorded macros, and so the operator to format conversion and programmersin VBAshould pay special attention to it. The author points the wrong sentences in macros, and provides the way to correct. 　　关键词： office 2003 宏 VBA编程 bug 　　Key words: office 2003；macro；VBA programming；bug 　　中图分类号：TP30 文献标识码：A文章编号：1006-4311（2011）２7-0113-02 　　 　　Office宏操作可以将操作记录下来，运行宏就可以快速的完成类似的操作。另外录制的宏代码在Office编程中应用非常方便。笔者在使用微软Office宏时发现了一个明显的bug。就是自动录制的转换字体格式的宏代码，竟然无法完成相应的功能。 　　仔细分析宏代码，笔者终于发现了问题所在。下面是使用Word自动录制的将选中文字由宋体转换为华文行楷的源代码。 　　Sub Macro1（） 　　With Selection.Font 　　.NameFarEast = “华文行楷” 　　′――转化前的字体 　　.NameAscii = Times New Roman 　　.NameOther = Times New Roman 　　.Name = “宋体” 　　′――转化后的字体 　　.Size = 10.5 　　.Bold = False 　　.Italic = False 　　.Underline = wdUnderlineNone 　　.UnderlineColor = wdColorAutomatic 　　.StrikeThrough = False 　　.DoubleStrikeThrough = False 　　.Outline = False 　　.Emboss = False 　　.Shadow = False 　　.Hidden = False 　　.SmallCaps = False 　　.AllCaps = False 　　.Color = wdColorAutomatic 　　.Engrave = False 　　.Superscript = False 　　.Subscript = False 　　.Spacing = 0 　　.Scaling = 100 　　.Position = 0 　　.Kerning = 1 　　.Animation = wdAnimationNone 　　.DisableCharacterSpaceGrid = False 　　.EmphasisMark = wdEmphasisMarkNone 　　End With 　　End Sub 　　原来OFFICE录制宏时，录制的宏代码将转换前后的字体弄颠倒了。注意我加了注释的两行语句，.NameFarEast=“华文行楷”和.Name=“宋体”，所以这段程序只能实现将选中文字由华文行楷转换为宋体。要修正也很容易只要就将后面的字体换过来就能实现由宋体转换为华文行楷了，也就是在宏源代码中手动修改为.NameFarEast=“宋体”和.Name=“华文行楷”。 　　下面以Word为例说明如何修改宏代码。宏录制完成后，单击菜单“工具”|“宏”|“宏”，弹出“宏”窗口，如图1所示。 　　单击右侧的“编辑”按钮，就会打开宏源代码窗口。如图2所示。 　　如果读者不想如何修改宏代码，还有一种方法，就是录制时字体也颠倒设置。比如需要录制将选中文字由宋体转换为华文行楷的宏，在录制前可以先将字体设置为华文行楷，选中文字录制宏