koda ekledim,
bu ekle dediğiniz satır hata verdi,
Private Sub btn_wordeaktar_Click()

Dim BelgeAcik As Boolean
Dim ResimBilgisi As Variant
Dim ResimAdi As String
Dim Sorgum As QueryDef
Dim Kayit As Recordset
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordDocYeni As Word.Document
Dim GSablon, GKlasor, GDosyaNo, GDosyaYolu As String
Dim AcikBelgeResim
Dim GeciciPersonelDosyasi, GeciciBelgeAdi As String

MkDir CurrentProject.Path & "\gecici\"

GKlasor = Environ("TEMP")
GDosyaNo = Format(Now(), "ddmmyyyyhhnnss")
GDosyaYolu = GKlasor & "\AccessTrneT" & GDosyaNo & "\"
GSablon = CurrentProject.Path & "\personelbilgileri.doc"

If FolderExists(GDosyaYolu) = False Then
MkDir GDosyaYolu
End If