在 Word 文档中使用 ActiveX 控件

可将控件添至文档，以建立交互式文档（如联机窗体）。有关添加和使用控件的常规信息，请参阅在文档中使用 ActiveX 控件和创建自定义对话框。

处理文档中的控件时，请记住以下要点：

• 可将 ActiveX 控件添至文档的文本层或图形层。若要向图形层添加控件，请单击“控件工具箱”上的控件。若要向文本层添加控件，请按住 Shift 并单击“控件工具箱”上的控件。
• 添加到文本层的控件是一个 InlineShape 对象，可通过 InlineShapes 集合以编程方式对其进行访问。添加到图形层的控件是一个 Shape 对象，可通过 Shapes 集合以编程方式对其进行访问。
• 文本层的控件被视为字符，可以象放置字符那样将其置于文本的某一行中。
• 在设计模式中，图形层的 ActiveX 控件只能在页面视图或 web 版式视图中显示。
• 如果希望用户能够使用 ActiveX 控件但又不会改变文档的版式，可通过单击“窗体”工具栏上的“保护窗体”按钮来保护文档。
• Word 执行文档中 ActiveX 控件的 LostFocus 和 GotFocus 事件。“过程”下拉列表框中所列的其他事件在“Microsoft 窗体帮助”中有文档说明（Fm20.hlp）。有关使用 AxtiveX 控件事件的详细内容，请参阅控件和对话框事件和使用 ActiveX 控件事件主题。
• 若要向文档添加窗体域而非 ActiveX 控件，并用于创建联机窗体，可使用“窗体”工具栏。
• 文档中 ActiveX 控件事件过程中的 Me 关键字引用的是文档而不是控件。

编写文档控件的事件代码与编写窗体控件的事件代码很相似。下面的 SpinUp 和 SpinDown 事件过程改变文档中（含有名为“SpinButton1”的数值调节钮控件的）名为 “TextBox1” 的文本框控件的值。用户单击向下或向左的数值调节钮箭头，可使文本框的值逐一递减；单击向上或向右的数值调节钮箭头，可使文本框的值逐一递增。

Private Sub SpinButton1_SpinDown()
    Me.TextBox1.Value = Me.TextBox1.Value - 1
End Sub

Private Sub SpinButton1_SpinUp()
    Me.TextBox1.Value = Me.TextBox1.Value + 1
End Sub

下面的 Click 事件过程可切换到页面视图，并将名为 “cmdChangeView” 的命令按钮所驻留的文档的缩放比例设为 100%。

Private Sub cmdChangeView_Click()
    With Me.ActiveWindow.View
        .Type = wdPrintView
        .Zoom.Percentage = 100
    End With
End Sub