WordVBA---ActiveX控件在Word文档中的使用方法

1、WordVBA-ActiveX控件在Word文档中的使用方法WordVBA-ActiveX控件在Word文档中的使用方法当您想要提供一种完善的方式让用户与宏直接进行交互、而不受对话框干扰的时候，可以向文档直接添加ActiveX控件，这如同可以向自定义对话框添加ActiveX控件一样。使用以下过程可以将ActiveX控件添加到您的文档。1、向文档中添加控件您可以向文档的图形层或文本图层添加ActiveX控件。向图形层添加控件：单击控件工具箱上的控件。拖动控件的调整控点，直到控件的轮廓大小和形状符合要求。向文本层添加控件：请在按住SHIFT键的同时单击控件工具箱上的控件。该控件将自动添加到文档中的

2、插入点。注释：将一个控件（或一组控件）从窗体拖回控件工具箱，即可创建一个可重复使用的该控件的模板。这是一个非常有用的功能，能为用户实现标准的应用程序界面。2、设置控件属性在设计阶段（宏运行之前）可以设置一些ActiveX控件的属性。在设计模式中，右键单击一个控件并单击右键菜单中的属性以显示属性窗口。属性名称显示在窗口的左栏，而属性值显示在右栏。可在属性名称的右边输入新值来设置该属性的值。3、初始化控件属性您可以通过在宏中使用Visual Basic代码在运行时初始化ActiveX控件。例如，您可在其中填充列表框中，设置文本值或设置选项按钮。以下示例使用Visual Basic的AddItem方

3、法将数据添至名为lstRegions的列表框，然后设置文本框的值并显示窗体。Private Sub GetUserName()With UserForm1.lstRegions.AddItemNorth.lstRegions.AddItemSouth.lstRegions.AddItemEast.lstRegions.AddItemWest.txtSalesPersonID.Text=00000.Show.End WithEnd Sub也可使用窗体的Visual Basic Initialize事件中的代码为窗体上的控件设置初始值。在Initialize事件中设置控件初始值的好处在于，初始化代

4、码将保留在窗体中。可以将窗体复制到其他项目，并且当运行Show方法显示对话框时，将初始化控件。Private Sub UserForm_Initialize()With UserForm1With.lstRegions.AddItemNorth.AddItemSouth.AddItemEast.AddItemWestEnd With.txtSalesPersonID.Text=00000End WithEnd Sub4、控件和对话框事件在向对话框或文档中添加了ActiveX控件后，应添加事件过程以决定控件如何响应用户操作。用户窗体和控件有一系列预定义的事件。例如，命令按钮具有Click事件，在

5、用户单击命令按钮时，该事件发生，用户窗体具有Initialize事件，在加载窗体时，该事件运行。要编写控件或窗体的事件过程，可双击窗体或控件打开一个模块，然后从过程下拉列表框中选择事件。事件过程包含控件名称。例如，名为Command1的命令按钮的Click事件过程名称为Command1_Click。如果为事件过程添加代码后更改该控件的名称，这些代码仍保留使用原名称的过程中。例如，假定您为Commmand1的Click事件添加代码，然后将该控件重命名为Command2。在双击Command2时，将不会在Click事件过程中看到任何代码。您需要将代码从Command1_Click移动至Comman

6、d2_Click。为了简化开发过程，最好在编写代码之前命名控件。5、运行代码时使用控件值当运行Visual Basic代码时，您可以为ActiveX控件设置并返回某些属性。下面的示例设置文本框中的Text属性为Hello。TextBox1.Text=Hello关闭窗体时，用户输入窗体中的数据将会丢失。如果卸载窗体后返回窗体上控件的值，则获得控件的初始值而不是用户输入的值。若要保存输入窗体中的数据，可在窗体运行时将信息保存到模块级的变量中。以下示例显示一个窗体，并在卸载窗体前用公共变量保存窗体数据。Code in module to declare public variablesPublic

7、strRegion As StringPublic intSalesPersonID As IntegerPublic blnCancelled As BooleanCode in formPrivate Sub cmdCancel_Click()Module1.blnCancelled=TrueUnload MeEnd SubPrivate Sub cmdOK_Click()Save dataintSalesPersonID=txtSalesPersonID.TextstrRegion=lstRegions.List(lstRegions.ListIndex)Module1.blnCance

8、lled=FalseUnload MeEnd SubPrivate Sub UserForm_Initialize()Module1.blnCancelled=TrueEnd SubCode in module to display formSub LaunchSalesPersonForm()frmSalesPeople.ShowIf blnCancelled=True ThenMsgBoxOperation Cancelled!,vbExclamationElseMsgBoxThe Salespersons ID is:&_intSalesPersonID&_The Region is:&

9、strRegionEnd IfEnd Sub当控件被添加到文档之后就能创建可交互的文档，例如联机窗体。在文档中使用控件时需要注意以下几点：?可以对文本图层或文档的图形层添加ActiveX控件。若要向图形层添加控件，请单击控件工具箱上的控件。若要向文本层添加控件，请在按住SHIFT键的同时单击控件工具箱上的控件。?向文本层添加控件是一个InlineShape对象，可以通过InlineShapes集合以编程方式访问的。向图形层添加控件是一个Shape对象，可以通过Shapes集合以编程方式访问的。?文本层中的控件被视为字符，可以像字符那样置于文本的某一行中。?在设计模式下，绘图层中的ActiveX

10、控件只能在页面视图或Web版式视图中显示。?如果希望用户能够使用ActiveX控件但又不改变文档的版式，可通过单击窗体工具栏上的保护窗体按钮来保护文档。?Microsoft Word实施文档中ActiveX控件的LostFocus和GotFocus事件。在过程下拉列表框中列出的其他事件都记录在Microsoft窗体帮助。?若要向文档添加窗体域而非ActiveX控件，以创建联机窗体，请使用窗体工具栏。?文档中ActiveX控件的事件过程中的Me关键字引用的是文档而不是控件。编写文档控件的事件代码与编写窗体控件的事件代码很相似。下面的SpinUp和SpinDown事件过程改变了包含名为SpinButton1的旋转按钮控件的文档中名为TextBox1的文本框控件的值。当用户单击下面或左侧的旋转按钮箭头时，文本框控件的值将减1；当用户单击上面或右侧的旋转按钮箭头时，该值将加1。Private Sub SpinButton1_SpinDown()Me.TextBox1.Value=Me.TextBox1.Value-1End SubPrivate Sub SpinButton1_SpinUp()Me.TextBox1.Value=Me.TextBox1.Value+1End Sub