7G0IQL9B.rar
(4.85 KB, 下载次数: 506)
三位一体打造复选框新方法：
本文仅探讨WORD中插入符号：SR£的内容，感兴趣的朋友可以进行深入研究。
在我们通常的WORD文档的选项中，有时需要£，有时需要用户进行选择，使之变成R，而有时则需要变成S，那么功能强大的WORD，为我们提供了如何便捷的途径呢？尽管有人喜欢不断的插入，不断的复制；或者使用窗体，也可以使用控件，林林总总，不尽相同，但据笔者考察，均不如该方法直接。以下将对该方法进行论述：
所谓三位一体，是指通过宏、自动图文集、域三者协同工作，完成上述功能。咋一看，觉得很繁，需要联动，该有多大工作量。看下去，就简单了，顺便借此向初学者介绍一些域、自动图文集和宏的基础知识：
除了VBA，WORD中复杂的要数域了，本文中要应用到的是MacroButton域，此域的功能是双击该域时，运行指定的宏。略知一些VBA的网友都知道，WORD中要使用双击产生事件（VBA）中是一件较烦的事，你得使用类模块，但该域提供了一个较为方便的方式；
VBA，将以下代码粘贴到全局模块（NORMAL）中或者活动文档的THISDOCUMEN模块中：
Sub CheckIt()
NormalTemplate.AutoTextEntries("选定复选框").Insert Where:=Selection.Range
End Sub
Sub UncheckIt()
NormalTemplate.AutoTextEntries("清除复选框").Insert Where:=Selection.Range
End Sub
自动图文集，若要存储和快速插入文字、图形和其他经常使用的对象（包括声音文件等），可以使用自动图文集。在这里，我们需将命名三个自动图文集，“选定复选框”，“打叉复选框”，“清除复选框”。
第一步，插入域，CTRL+F9，自动插入一对花括号“{}”，在括号中输入：{ MACROBUTTON CheckIt £}，注意MACROBUTTON前后各打一个空格键，CheckIt后也输入一个空格键，然后插入/符号：选webdings2，字符代码为163的符号（空框）。选定该域，注意不要连段落标记也选定，按下ALT+F3，命名为“清除复选框”自动图文集；
以下“选定复选框”，也一样，只是在域名MACROBUTTON 后输入UncheckIt R(webdings2,字符代码为82)，{ MACROBUTTON UnCheckIt R},然后ALT+F3命名为“选定复选框”
这样，“打叉复选框”从简，略。
上述操作完成后，我们就可以完成本项工作了。
在你需要插入“复选框”的地方，输入“选定复选框”字样，按回车或F3将自动出现有域底纹的R，双击该复选框，则会变成£，再双击，又会变成R。
那如何实现开篇所说的三者转换呢，其实也很简单：粘贴以下代码到全局模板或活动文档中，
Sub CheckIt()
NormalTemplate.AutoTextEntries("打叉复选框").Insert Where:=Selection.Range
End Sub
Sub UncheckIt()
NormalTemplate.AutoTextEntries("选定复选框").Insert Where:=Selection.Range
End Sub
Sub ErrIt()
NormalTemplate.AutoTextEntries("清除复选框").Insert Where:=Selection.Range
End Sub
当然前提是有一个名为“打叉复选框”的自动图文集。此自动图文集的内容为：
{ MACROBUTTON ErrIt S}(webdings 83字符号)。
希望此文可以给愿意深入学习与探究WORD的网友一些启迪。
受模板影响，给出的附件，您必须手动命名自动图文集，当然只需在附件中选中域后命名即可。
OK！ | 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2004-6-24 21:03
楼主
发表于 2005-8-1 19:32