wordz中控件工具箱的使用.doc

在word的   视图-》   工具栏--》控件工具箱   里面，有个   “复选框”控件  

  将控件加入文档后，怎么样才能   使   别人   用鼠标点一下复选框的“口”，就自动   在“口”内   打钩  

  不知道怎么实现这个功能呢？？  
计控件时复选筐有一个属性是“（名称）”，假设它是CheckBox1，那么在Visual　Basic   编辑(ALT+F11)其中的Microsoft   Word   对象中的ThisDocument里输入以下代码：  

  Dim   A   As   Integer  
  Private   Sub   CheckBox1_Click()  
  A   =   (A   +   1)   Mod   2  
  If   A   =   1   Then  
  CheckBox1.Value   =   True  
  Else  
  CheckBox1.Value   =   False  
  End   If  
  End   Sub  

  然后回到文档，功能实现。