Excelden word de hazırlanmış metin içerisine veri aktarma

[f.yilmazer]

Merhaba arkadaşlar
Matbu olarak elimde hazır bulunan 4-5 tane word de hazırlanmış tutanak vs. var.Bunların hepsinde ad soyad, ana adı ,baba adı, tc kimlik no vs. bilgiler bulunuyor.Excelde hazırladığım bir tabloda bu bilgileri girdiğimde word belgelerinde ilgili yerlere istediğim font yazı tipinde otomatik yazılmasını istiyorum. Aynı bilgileri tek tek yazmaktan kurtulmak için böyle bir yapmak mümkün müdür.

 

[Cengiz Demir]

Adres Mektup Birleştirme olarak araştırın. Bu yöntemle olur sanırım.
Not: Benim bilgim yok o konu hakkında.

 

[Asri]

Bu konuyu inceleyiniz.

Soru - VBA Word Doldurma Hatası Hakkında

Merhaba, Ekteki dosyada 2 adet makro var. 2 adet tutanak doldurma işlemi için ayarladım. Word hata verdiği için içinde birde word kapatma makrosu koydum. Butona tıklayınca çalıştırınca belgeleri oluşturmuyor. Yardımcı olabilirmisiniz? Oluşturursa da diğer makrodakini oluşturmuyor. PC...

excel.web.tr

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

https://www.excelgurusu.com/mektup-birlestirme-mail-merge/

.

 

[f.yilmazer]

Öncelikle İlginiz için teşekkür ederim. Yukarıda verdiğiniz örnekleri inceledim.benim istediğimi karşılamıyor.Bu arada macro konusunda hiç bilgim yok diyebilirim.Yukarıdaki örneklerde tarih ad soyad tc gibi alanlar bulunan tek bir belgenin örneğin listedeki 10 farklı kişi için ayrı ayrı düzenlenmesi için hazırlanmış.Benim istediğim şu. Olay tutanağı , İfade , Savcı görüşme gibi farklı word belgelerim. Bu belgelerin hepsinde ortak olan tarih saat ad soyad tc gibi alanlar var.Excelde hazırlayacağım veri tablosundan bu bilgilerin az saydığım word belgelerinde ilgli yerlere otomatik aktarılmasını istiyorum. Bunu yapabileceğim bir örnek var mı acaba

 

[Asri]

Öncelikle İlginiz için teşekkür ederim. Yukarıda verdiğiniz örnekleri inceledim.benim istediğimi karşılamıyor.Bu arada macro konusunda hiç bilgim yok diyebilirim.Yukarıdaki örneklerde tarih ad soyad tc gibi alanlar bulunan tek bir belgenin örneğin listedeki 10 farklı kişi için ayrı ayrı düzenlenmesi için hazırlanmış.Benim istediğim şu. Olay tutanağı , İfade , Savcı görüşme gibi farklı word belgelerim. Bu belgelerin hepsinde ortak olan tarih saat ad soyad tc gibi alanlar var.Excelde hazırlayacağım veri tablosundan bu bilgilerin az saydığım word belgelerinde ilgli yerlere otomatik aktarılmasını istiyorum. Bunu yapabileceğim bir örnek var mı acaba

Örnek şablon word dosyaları ve örnek şablona göre doldurulmuş bir örnek.
Kaynak excel dosyasını eklerseniz daha hızlı sonuç alırsınız

 

[metehanakdag]

Merhaba. Ben excel ile word dosyasına yazdırma işlevini bir süre kullandım fakat çözümünü sağlayamadığım problemlerden dolayı, word dosyalarını bir şekilde excel formatına çevirdim ve rahata kavuştum.

Word dosyasına veri girişi yapmak konusunda ısrarcıysanız eğer size örnek olabilecek bir istinaftan feragat dilekçe girişi hazırladım.

Tools > References > Microsoft Word 16.0 Object Library 'i aktifleştirin.
Word üzerinde metin girişi yapmak istediğiniz yerlere görseldeki gibi yer işaretleri koyun.



sablon = "C:\Users\mete\Desktop\EXCELDEN WORDE YAZDIRMA\istinaftanferagat.docx" bu kısmı kendinize göre değiştirmezseniz çalışmaz.

Private Sub CommandButton1_Click()

Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\Users\mete\Desktop\EXCELDEN WORDE YAZDIRMA\istinaftanferagat.docx"

Set doc = wordapp.Documents.Open(sablon)

doc.Bookmarks("sehir").Range.InsertAfter Range("c1").Text
doc.Bookmarks("esasno").Range.InsertAfter Range("c2").Text
doc.Bookmarks("kararno").Range.InsertAfter Range("c3").Text
doc.Bookmarks("davali").Range.InsertAfter Range("c4").Text
doc.Bookmarks("davalitc").Range.InsertAfter Range("c5").Text
doc.Bookmarks("davalitel").Range.InsertAfter Range("c6").Text
doc.Bookmarks("davaci").Range.InsertAfter Range("c7").Text
doc.Bookmarks("davaci2").Range.InsertAfter Range("c7").Text
doc.Bookmarks("davacitc").Range.InsertAfter Range("c8").Text
doc.Bookmarks("davacitel").Range.InsertAfter Range("c9").Text
doc.Bookmarks("tarih").Range.InsertAfter Range("c10").Text
doc.Bookmarks("tarih2").Range.InsertAfter Range("c10").Text

ActiveDocument.ExportAsFixedFormat _
     OutputFileName:=" & ThisWorkbook.Path & " & Range("c7").Text & ".pdf", _
     ExportFormat:=wdExportFormatPDF
openafterexport = True



MsgBox "Klasöre Kaydedildi", vbInformation, " U Y A R I "

doc.Close
Call Word_Kapat

End Sub

Yazdırma kısmında hata alabilirsiniz, bazen pdf 'e çeviriyor, bazen word olarak kaydediyor. En azından fikir verir nasıl ilerlemeniz gerektiği ile ilgili.

 

[Astalavista58]

Bilmiyorum link vermek yasak mı ama ekteki linke tıklayarak videoyu izleyerek istediğiniz sonuca ulaşabilirsiniz. İşinize yaracağını düşünüyorum

 

[f.yilmazer]

Rahatsızlığım nedneiyle yazamadım.Cevap gönderen arkadaşlara çok teşekkür ederim.

 

[f.yilmazer]

Merhaba. Ben excel ile word dosyasına yazdırma işlevini bir süre kullandım fakat çözümünü sağlayamadığım problemlerden dolayı, word dosyalarını bir şekilde excel formatına çevirdim ve rahata kavuştum.

Word dosyasına veri girişi yapmak konusunda ısrarcıysanız eğer size örnek olabilecek bir istinaftan feragat dilekçe girişi hazırladım.

Tools > References > Microsoft Word 16.0 Object Library 'i aktifleştirin.
Word üzerinde metin girişi yapmak istediğiniz yerlere görseldeki gibi yer işaretleri koyun.

Ekli dosyayı görüntüle 234779

sablon = "C:\Users\mete\Desktop\EXCELDEN WORDE YAZDIRMA\istinaftanferagat.docx" bu kısmı kendinize göre değiştirmezseniz çalışmaz.

Private Sub CommandButton1_Click()

Dim doc As Word.Document
Set wordapp = CreateObject("word.application")
sablon = "C:\Users\mete\Desktop\EXCELDEN WORDE YAZDIRMA\istinaftanferagat.docx"

Set doc = wordapp.Documents.Open(sablon)

doc.Bookmarks("sehir").Range.InsertAfter Range("c1").Text
doc.Bookmarks("esasno").Range.InsertAfter Range("c2").Text
doc.Bookmarks("kararno").Range.InsertAfter Range("c3").Text
doc.Bookmarks("davali").Range.InsertAfter Range("c4").Text
doc.Bookmarks("davalitc").Range.InsertAfter Range("c5").Text
doc.Bookmarks("davalitel").Range.InsertAfter Range("c6").Text
doc.Bookmarks("davaci").Range.InsertAfter Range("c7").Text
doc.Bookmarks("davaci2").Range.InsertAfter Range("c7").Text
doc.Bookmarks("davacitc").Range.InsertAfter Range("c8").Text
doc.Bookmarks("davacitel").Range.InsertAfter Range("c9").Text
doc.Bookmarks("tarih").Range.InsertAfter Range("c10").Text
doc.Bookmarks("tarih2").Range.InsertAfter Range("c10").Text

ActiveDocument.ExportAsFixedFormat _
     OutputFileName:=" & ThisWorkbook.Path & " & Range("c7").Text & ".pdf", _
     ExportFormat:=wdExportFormatPDF
openafterexport = True



MsgBox "Klasöre Kaydedildi", vbInformation, " U Y A R I "

doc.Close
Call Word_Kapat

End Sub

Yazdırma kısmında hata alabilirsiniz, bazen pdf 'e çeviriyor, bazen word olarak kaydediyor. En azından fikir verir nasıl ilerlemeniz gerektiği ile ilgili.

Denedim kendime uyarlayarak fakat excel şablonda bir bilgiyi örneğin ad soyad değiştirdiğinizde bir öncekinin yanına yazıyor değiştirilen ad soyad ikisi beraber çıkıyor bu sefer

 

[Merhum İdris SERDAR]

.

Benim verdiğim linki inceleseydiniz. Bir çözüm bulurdunuz. Neyse...

Şimdi;

1. Bir Excel dosya hazırlayın. Burada verileriniz alt alta bulunsun. Aşağıdaki gibi

ŞEHİR	ESAS NO	KARAR NO	DAVALI AD-SOYAD	DAVALI TC.NO	DAVALI CEP TEL	DAVACI AD-SOYAD	DAVACI TC.NO	DAVACI CEP	TARİH
İSTANBUL	202213	2022/01	RECEP ŞABAN	12345678911	0512 345 67 88	RAMAZAN MÜBAREK	98765432111	0512 987 65 43	7.03.2022

2. Wod'te bir şablon yazı hazırlayın.

İkisini buraya ekleyin. Bakalım.

.