Kodun ilgili kısmını aiağıdaki ile değiştirin.
Kolay Gelsin.

   ' Her satırı uygun olan kayıt ile değiştirmek.

    With WordApp.Selection

     .GoTo what:=wdGoToBookmark, Name:="A"

     .TypeText Nz([A], "")

                   

     .GoTo what:=wdGoToBookmark, Name:="B"

     .TypeText Nz([B], "")

     

     .GoTo what:=wdGoToBookmark, Name:="C"

     .TypeText Nz([C], "")

   

     .GoTo what:=wdGoToBookmark, Name:="D"

     .TypeText Nz([D], "")

     

     .GoTo what:=wdGoToBookmark, Name:="E"

     .TypeText Nz([E], "")

    

     .GoTo what:=wdGoToBookmark, Name:="F"

     .TypeText Nz([F], "")

                   

     .GoTo what:=wdGoToBookmark, Name:="G"

     .TypeText Nz([G], "")