What version of Word are you using? Anything above 2007 and I would consider your method like accelerating a Ferrari with a horsewhip.
Put titled content controls where you have the bookmarks:
Sub Set1()
With ActiveDocument
.SelectContentControlsByTitle("Name").Item(1).Range.Text = InputBox("Name?")
.SelectContentControlsByTitle("Name2").Item(1).Range.Text = InputBox("Name2?")
'....
End With
lbl_Exit:
Exit Sub
End Sub
Sub Set2()
With ActiveDocument
.SelectContentControlsByTitle("Name6").Item(1).Range.Text = InputBox("Name6?")
.SelectContentControlsByTitle("Name7").Item(1).Range.Text = InputBox("Name7?")
'....
End With
lbl_Exit:
Exit Sub
End Sub