eklediğiniz alıntı kodlara göre düzenlemek gerekirse,mevcut kodlar eklediğiniz kadarı ile geçerli olmak üzere;
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
GKlasor = Environ("TEMP")
GDosyaNo = Format(Now(), "ddmmyyyyhhnnss")
GDosyaYolu = GKlasor & "\AccessTrneT" & GDosyaNo & "\"
GSablon = CurrentProject.Path & "\personelbilgileri.doc"
If Len(Dir(GDosyaYolu, vbDirectory)) = 0 Then
MkDir GDosyaYolu
End If
yukarıda yazıldığı gibi olmalı.
ayrıca;
eğer bu şekilde çalıştırmadan öncesinde bu isimle herhangi bir klasör mevcutsa temizleyip tekrar deneyiniz.
bilginize...iyi çalışmalar,saygılar.