Word vba窗体代码大全

以下是一些常见的 Word VBA 窗体代码示例：

1. 在 Word 中打开窗体：

Private Sub Document_Open()
    UserForm1.Show
End Sub

2. 创建一个窗体和控件：

Private Sub UserForm_Initialize()
    ' 创建一个文本框
    Dim tb As MSForms.TextBox
    Set tb = Me.Controls.Add("Forms.TextBox.1", "TextBox1")
    With tb
        .Left = 10
        .Top = 10
        .Width = 100
        .Height = 20
    End With
End Sub

3. 在窗体中使用输入框获取用户输入：

Private Sub CommandButton1_Click()
    Dim name As String
    name = InputBox("请输入您的姓名：")
    MsgBox "您好，" & name & "！"
End Sub

4. 在窗体中使用文本框获取用户输入：

Private Sub CommandButton1_Click()
    Dim name As String
    name = TextBox1.Value
    MsgBox "您好，" & name & "！"
End Sub

5. 使用下拉列表框选择选项：

Private Sub ComboBox1_Change()
    If ComboBox1.Value = "选项一" Then
        MsgBox "您选择了选项一。"
    ElseIf ComboBox1.Value = "选项二" Then
        MsgBox "您选择了选项二。"
    End If
End Sub

6. 使用复选框选择选项：

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        MsgBox "复选框已选中。"
    Else
        MsgBox "复选框未选中。"
    End If
End Sub

以上仅是一些基本的示例代码，如果需要更复杂的窗体功能，可以在网上寻找更多的资源和教程。