Find/Replace Macro to Word

Sub snb_Replacing()
 With thisworkbook.sheets(1)
  c01= .range("C2") & .range("C3")
 end with

 with getobject("C:\Users\Admin\Desktop\Pack.doc")
  .Selection.Find.execute "Name1" & "Name2", , , , , , , , , c01, 2
  .close -1
 End With
End Sub