Код на добавление

[Artemka93]

Есть на форме кнопка при нажатии на которую производится добавление записей в поля. Но проблема в том что этих полей не мало и чтобы каждое поле заполнилось нужно тыкать эту самую кнопку столько раз сколько у нас полей. Можно ли как то сделать чтобы при нажатии заполнялись сразу все поля. Код прилагаю.

With ActiveDocument.Content.Find
.Execute FindText:="Text1", ReplaceWith:=TextBox1
.Execute FindText:="Text2", ReplaceWith:=TextBox2
.Execute FindText:="Text3", ReplaceWith:=TextBox3
.Execute FindText:="Text4", ReplaceWith:=TextBox4
.Execute FindText:="Text5", ReplaceWith:=TextBox5
.Execute FindText:="Text6", ReplaceWith:=TextBox6
.Execute FindText:="Text7", ReplaceWith:=TextBox7
.Execute FindText:="Text8", ReplaceWith:=TextBox8
.Execute FindText:="Text9", ReplaceWith:=TextBox9
.Execute FindText:="Text10", ReplaceWith:=TextBox10
.Execute FindText:="Text11", ReplaceWith:=TextBox11
End With