Find/Replace Macro to Word

Almost there...

 
Sub snb_Replacing()
 with getobject("C:\Users\Admin\Desktop\Pack.doc")
   for j=1 to 6 
    .application.Selection.Find.execute choose(j,"Name1", "Name2","Addresline 1","Adressline 2"), , , , , , , , , cells(choose(j,2,3,8,9),3), 2
   next
  .close -1
 End With
End Sub

PS. If I were you I would save the result. In your code you don't.

NB. the wordconstant 2 is equivalent to wdreplaceall.
the argument 'forward' is redundant if using wdreplaceall.