Do While Not kseti.EOF

 If kseti("sinif") <> Me.sinif Then GoTo 100 !........... Bu satırı ekleyiniz..........

 Selection.TypeText Text:=kseti("sinif")

 Selection.MoveRight Unit:=wdCell

 Selection.TypeText Text:=UCase(kseti("adi") & " " & kseti("soyadi") & " (TC: " & kseti("tc_no") & " ) : " & kseti("anaadi") & " - " & kseti("babaadi") & " " & kseti("cinsiyet") & ", " & kseti("dogum_yeri") & " " & kseti("dogum_tarihi") & " doğumlu.")

 Selection.MoveRight Unit:=wdCell

100 !........... Bu satırı ekleyiniz..........

 kseti.MoveNext

Loop

Kodda yazdığım satırları ekleyip deneyiniz....