Worde Aktarma Yapamıyorum

(03/11/2025, 23:27)atoykan yazdı: Kodunuzda

    Dim WordApp As Word.Application

kısmını

Dim WordApp As Object

olarak

    strTemplateLocation = CurrentProject.Path & "/tutanak.dot"

kısmını

    strTemplateLocation = CurrentProject.Path & "/tutanak.docx"

olarak düzeltin.
Microsoft Word XX.X Object Library referanslardan eklemeden early binding ile Word'ü object olarak çağıramazsınız bunun yerine late binding yaparak Wordü object olarak tanımlamanız ve ardından application olarak çağırmanız gerekir, ayrıca word dosyasınız docx olmasına karşılık dot dosyası gösteriyorsunuz.

Cvp için teşekkür ederim hocam hemen deneyip dönüş yapacağım

hocam aynen uyguladım ancak bilgileri şablona aktaramadım bir yerde hatamı yapıyorum acaba

tutanak.docx dosyanızdaki bookmarkları ve form denetimlerini kontrol edin. kod sicil bookmarkı olmasına karşılık kayıt gönderecek eylemiçermiyor veya telefon için cep_telefonu diye bir denetim arıyor oysa formda cep_telefon adlı bir denetim var.... vs

Bende @atoykan hocamızın belirtmiş olduğu eksiklere ilaveten şunları söyleyebeilirim.
tutanak isimli şablon dosyanızda aslında 4 tane alan var fakat siz 3 alan tanımlamışsınız, yani tam hali;

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

    .TypeText [adi_soyadi]

    

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

    .TypeText [cep_telefon]

    

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

    .TypeText [rutbesi]

    

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

    .TypeText [sicil]

şeklinde olmalı, word dosyanızdaki yer işaretlerini buna göre düzenlemeniz gerekmektedir. Yer işaretlerinde Name (word dosyasındaki yer işareti adı) ve TypeText (formunuzdaki ilgili alanın adı) değişkenlerinden sonraki ifadeleriniz birebir örtüşmelidir.
Bu şekilde yaptığınız takdirde herhangi bir sorunla karşılaşmazsınız.

(Dün, 10:37)onur_can yazdı: Bende @atoykan hocamızın belirtmiş olduğu eksiklere ilaveten şunları söyleyebeilirim.
tutanak isimli şablon dosyanızda aslında 4 tane alan var fakat siz 3 alan tanımlamışsınız, yani tam hali;

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

    .TypeText [adi_soyadi]

    

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

    .TypeText [cep_telefon]

    

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

    .TypeText [rutbesi]

    

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

    .TypeText [sicil]

şeklinde olmalı, word dosyanızdaki yer işaretlerini buna göre düzenlemeniz gerekmektedir. Yer işaretlerinde Name (word dosyasındaki yer işareti adı) ve TypeText (formunuzdaki ilgili alanın adı) değişkenlerinden sonraki ifadeleriniz birebir örtüşmelidir.
Bu şekilde yaptığınız takdirde herhangi bir sorunla karşılaşmazsınız.

Tekrar inceleyip döneceğim hocam tşk ederim

Worde aktarma sorunum çözüldü teşekkür ederim değerli hocalarım .

aynı örnek üzerinde adı ve soyadı girdiğimiz de aynı isimli şahıs var ise SADECE cep telefonunu otomatik getirme işini yapabilirmiyiz. Diğer bilgiler gelmeyecek.