Merhaba, ekli uygulamanızda 3 alanı ve 2 resmi aktaracak şekilde düzenledim. Referans olarak Microsoft Word referansının da eklenmesi gerekli.

.Selection.GoTo what:=wdGoToBookmark, Name:="ad"

.Selection.TypeText Kayit.Fields("ADI")

Şeklindeki kodda, ad, word belgesindeki yerimini, ADI ise tablodaki alan adını temsil eder.

Eklediğin örnekteki hatalı kısımlar kaldırdım, benim eklediğim örneğe, diğer yer imlerini ikişer ikişer ekle, her eklemede test et. Sorun çıkarsa tekrar konuya yaz.