Запись значений текстового поля формы в документ Word не работает - PullRequest
Новая
       12

Запись значений текстового поля формы в документ Word не работает

0 голосов
/ 01 февраля 2011

У меня есть пользовательская форма для текстовых фраз, и я хочу сохранить введенные фразы при закрытии пользовательской формы. Почему-то это не работает.

Вот мой код: 

Private Sub CancelButton_Click()

ActiveDocument.Variables("SPE 1") = UserForm1.TextBox1.Value
ActiveDocument.Variables("SPE 2") = UserForm1.TextBox2.Value
ActiveDocument.Variables("SPE 3") = UserForm1.TextBox3.Value
ActiveDocument.Variables("SPE 4") = UserForm1.TextBox4.Value
ActiveDocument.Variables("SPE 5") = UserForm1.TextBox5.Value
ActiveDocument.Variables("QAS 1") = UserForm1.TextBox6.Value
ActiveDocument.Variables("QAS 2") = UserForm1.TextBox7.Value
ActiveDocument.Variables("GPE 1") = UserForm1.TextBox8.Value
ActiveDocument.Variables("GPE 2") = UserForm1.TextBox9.Value

Unload UserForm1
End Sub

При инициализации формы пользователя у меня есть следующий код: 

Sub UserForm1_Initialize()

UserForm1.TextBox1.Value = ActiveDocument.Variables("SPE 1").Value
UserForm1.TextBox2.Value = ActiveDocument.Variables("SPE 2").Value
UserForm1.TextBox3.Value = ActiveDocument.Variables("SPE 3").Value
UserForm1.TextBox4.Value = ActiveDocument.Variables("SPE 4").Value
UserForm1.TextBox5.Value = ActiveDocument.Variables("SPE 5").Value
UserForm1.TextBox6.Value = ActiveDocument.Variables("QAS 1").Value
UserForm1.TextBox7.Value = ActiveDocument.Variables("QAS 2").Value
UserForm1.TextBox8.Value = ActiveDocument.Variables("GPE 1").Value
UserForm1.TextBox9.Value = ActiveDocument.Variables("GPE 2").Value

End Sub

Кто-нибудь знает, что не так с моим кодом?

1 Ответ

0 голосов
/ 01 февраля 2011

Как вы можете закрыть форму пользователя, не используя "Unload"?

Вы можете использовать UserForm1.Hide

...