Visual Basic Office:制作将数据发送到文档中的文本框的表单
Visual Basic Office: Make form that send data to textbox in document
所以在 Word 文档中,我有一个带有 combobox1 和项目的表单,我有一个 button.When 我按下按钮,应该将组合框的选定值添加到 word 文档中的 textbox1
enter image description here
仅当我在表单中添加文本框但我需要文档中的文本框时,表单才能识别 TextBox1
还有代码
Private Sub CommandButton1_Click()
TextBox2.Text = TextBox2.Text & ComboBox1.Text & "*"
End Sub
所以ComboBox1在form里,TextBox2在word文档里
编辑:
表单代码:
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox1_Click()
End Sub
Private Sub CommandButton1_Click()
ThisDocument.TextBox4.Value = ThisDocument.TextBox4.Value + Me.ComboBox1.Text & "*"
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("test1", "test2")
End Sub
此文档:
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
尝试在文档中设置文本框值;目前假设父对象是您设置的形式:
ThisDocument.TextBox2.Text = ThisDocument.TextBox2.Text & Me.ComboBox1.Text & "*"
所以在 Word 文档中,我有一个带有 combobox1 和项目的表单,我有一个 button.When 我按下按钮,应该将组合框的选定值添加到 word 文档中的 textbox1 enter image description here 仅当我在表单中添加文本框但我需要文档中的文本框时,表单才能识别 TextBox1
还有代码
Private Sub CommandButton1_Click()
TextBox2.Text = TextBox2.Text & ComboBox1.Text & "*"
End Sub
所以ComboBox1在form里,TextBox2在word文档里
编辑: 表单代码:
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox1_Click()
End Sub
Private Sub CommandButton1_Click()
ThisDocument.TextBox4.Value = ThisDocument.TextBox4.Value + Me.ComboBox1.Text & "*"
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Array("test1", "test2")
End Sub
此文档:
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
尝试在文档中设置文本框值;目前假设父对象是您设置的形式:
ThisDocument.TextBox2.Text = ThisDocument.TextBox2.Text & Me.ComboBox1.Text & "*"