Word文書にフォームのテキストボックス値を書き込めません。

Question

私はテキストフレーズ用のユーザーフォームを持っています。ユーザーフォームを閉じるときに入力したフレーズを保存します。何らかの理由で動作しません。ここで

は私のコードです：

ユーザーフォームのinitilizationに

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 

誰もが私のコードで間違っているものを知っていますか？

Answer 1

「アンロード」を使用しないユーザーフォームを閉じるにはどうすればよいですか？

あなたはUserForm1.Hide