Word VBA教程:在 Word 文档中使用 ActiveX 控件

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

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

编写文档控件的事件代码与编写窗体控件的事件代码很相似。下面的 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号