如发现有乱码，请点击下面链接浏览原文
正文摘录:

第11期毛奔，等：利用VBA在Word中实现自动排版功能·39·下面通过部分程序说明原理.在整个排版程序中采用指针来标明词条段落中各个字符位置，指针数值代表字符的位置，程序的hc变量就是字符位置，ActiveDocumen对象是当前打开的活动文档，Paragraphs(paracounter)属性是段落对象，它的paracounter指明段落号.段落的Range属性的Char—acters属性的count属性为这个段落含有的字符数目.Mystr变量存放字符，用while语句消除空格，用Asc()函数确定字符的ASC值，用来判断是否括弧或数字，如果满足条件，用myrang对象的select行为选择，选择范围扩展到尾括弧，myrang对象的select行为得到的Selection对象包含了选择的内容，用Selection对象的Font属性排版，就可以设定字体和字号格式.主过程如下：Sub词条排版()Charcou=ActiveDocument.Paragraphs(para—counter).Range.Characters.count取得段落字符数Call初始化‘调初始化函数ActiveDocument.Paragraphs(paracounter).Range.Characters(1)hc=1‘由当前文档对象Paragraph的range成员确定排版的字符Setmyrange=ActiveDocument.Paragraphs(para—counter).Range.Characters(1)myrange.Selectwstring=Right(Selection.Text，1)While(wstring＜＞“”Andhc＜charcou)Selection.MoveEndunit：=wdCharacter，count：。1hc=hc+1Ifhc＞charconThenExitSubwstring=Right(Selection.Text，1)Wend‘选择欲排版的内容WjthSelection.Font.Color=wdC0lorBlack.Size=7.5.Bold=False.Italic=False.Name=“Gothic725BlkBT”EndWith‘对选定的内容设定字体和格式Ifhc＜charcouThenCall头括弧Ifhc＜charcouThenCall起源Ifhc＜charcouThenCall见其他词条Ifhc＜charcouThenCall词条分类Ifhc＜ehareouThenCall词性分类Ifhc＜charcouThenCall词性Ifhc＜charcouThenCall头括弧Ifhc＜charcouThenCall义项分类Ifhc＜charcouThenCall见其他词条Call设定段落格式EndSl】b4结束语Office套装软件是目前应用最广泛的排版软件，但是大部分人只能使用它的常规功能来排版，很少开发出自动、高效也具有相当智能程度的文档处理功能的排版插件程序.利用VBA组件可以实现繁琐、机械的日常排版工作自动化.用VBA扩展功能可以完成各种高级排版功能的软件开发.参考文献：[1]电子工业出版社工作室.Word2000中文版VBA开发实例指南[M].北京：电子工业出版社，2000.[2]林丕源.VisualBasic程序设计使用技术与实例[M].成都：电子科技大学出版社，1999.[3]徐国平.VBA中文版程序设计与应用[M].北京：清华大学出版社，1998.[责任编辑：李雪莲]