Option Explicit
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
ActiveDocument.FormFields("ФИОПродавца").Result = Me.TextBox1.Text
ActiveDocument.FormFields("ЫйАяПродавец").Result = Me.TextBox2.Text
ActiveDocument.FormFields("ПропискаПродавца").Result = Me.TextBox3.Text
ActiveDocument.FormFields("Этаж").Result = Me.TextBox4.Text
ActiveDocument.FormFields("ТипДома").Result = Me.TextBox5.Text
ActiveDocument.FormFields("Комнат").Result = Me.TextBox6.Text
ActiveDocument.FormFields("ОбщаяПлощадь").Result = Me.TextBox7.Text
ActiveDocument.FormFields("ЖилаяПлощадь").Result = Me.TextBox8.Text
ActiveDocument.FormFields("Цена").Result = Me.TextBox9.Text
ActiveDocument.FormFields("ФИОПокупателя").Result = Me.TextBox10.Text
ActiveDocument.FormFields("ЫйАяПокупатель").Result = Me.TextBox10.Text
ActiveDocument.FormFields("ПропискаПокупателя").Result = Me.TextBox12.Text
Dim oTextBox As TextBox
Unload Me
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Image2_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Label13_Click()
End Sub
Private Sub Label15_Click()
End Sub
Private Sub Label18_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label36_Click()
End Sub
Private Sub Label41_Click()
End Sub
Private Sub Label46_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub Label7_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox10_Change()
End Sub
Private Sub TextBox11_Change()
End Sub
Private Sub TextBox12_Change()
End Sub
Private Sub TextBox13_Change()
End Sub
Private Sub TextBox14_Change()
End Sub
Private Sub TextBox15_Change()
End Sub
Private Sub TextBox16_Change()
End Sub
Private Sub TextBox17_Change()
End Sub
Private Sub TextBox18_Change()
End Sub
Private Sub TextBox19_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox20_Change()
End Sub
Private Sub TextBox28_Change()
End Sub
Private Sub TextBox31_Change()
End Sub
Private Sub TextBox32_Change()
End Sub
Private Sub TextBox33_Change()
End Sub
Private Sub TextBox34_Change()
End Sub
Private Sub TextBox35_Change()
End Sub
Private Sub TextBox36_Change()
End Sub
Private Sub TextBox37_Change()
End Sub
Private Sub TextBox38_Change()
End Sub
Private Sub TextBox39_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox40_Change()
End Sub
Private Sub TextBox41_Change()
End Sub
Private Sub TextBox5_Change()
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox7_Change()
End Sub
Private Sub TextBox8_Change()
End Sub
Private Sub TextBox9_Change()
End Sub
Private Sub UserForm_Click()
End Sub