UserFormdan Word'e Bilgi Girişi

[ECYavuz]

Selamlar;

Excel'den Word'e bilgi aktarımı ile bir sürü örnek var...Ama benim sorum biraz farklı....

Görüşmelerimizi girdiğimiz programımızda bir UserForm ve üzerinde de iki adet TextBox olduğunu düşünelim... Biri Görüşme Konusunun yazıldığı (TextBox1) ve diğeri görüşme metninin girildiği (TextBox2) gibi.

TextBox1 (Başlık) ve TextBox2 ye girilen metinlerin bir butona basıldığında Word Belgesine aktarılması mümkün müdür???

(ki gerekirse Antetli Kağıda Word sayfasından çıktı da alınabilsin...)

 

[ECYavuz]

Arkadaşlar bu konuda yardımcı olabilecek kimse varmı?

 

[hsayar]

Word belgesindeki durmunu gösteren bir örnek eklermisiniz
Benim anladığım siz Paragraf olarak akatarsın istiyorsunuz ama örnekte fayda var

1) Tablo olarak derseniz
Textbox1 i Sayfa1 a1 e
Textbox2 yi Sayfa1 a2 e
gönderip oradan Worde gönderirim.

2A) pargraf olarak derseniz tipnosunu bilmiyorum (ama öğrenilir.) onuda önce hücreye oradan worde gönderirim

2B) ama siz derseniz ki ben excelde hücre kullanmayacam direkt worde gönderecem o beni aşar.

 

[ECYavuz]

Sayın Hsayar Günaydın, ilginiz için teşekkür ederim.

İstediğimi tam olarak anlamışsınız. TextBox lara (2 adet) girilen bilginin, önce Excel Hücresine aktarılıp akabinde, tablo olarak Word belgesine aktarılmasını zaten uyguluyorum.

Sizinde değindiğiniz gibi, benim öğrenmek istediğim TextBox1 ve TextBox2 ye girilen bilginin bir tuşa basıldığında veya TextBox2 doldurulduğunda Word Belgesine aktarılıp aktarılmayacağı?

Fikirleri olan arkadaşları aramızda görmek istiyoruz.... Saygılar ve sevgiler...

 

[hsayar]

Günaydın.
benden şimdilik pas.... bu konuda örnek görmediğim için uyarlayamam. ben iyi uyarlarım ama 0 dan yaptığım nadir görülmüştür.

 

[ECYavuz]

Uyarlama konusundaki uzmanlığınızı biliyorum. Sorularınızı ve örneklerinizi sürekli inceliyorum sayın hsayar. İlginize tekrar teşekkürler...

Aslında sorduğum konunun bir yanıtını bulabilirsek, herkezin işine yarayacak gibi geliyor bana, hiç değilse excel sayfalarına gereğimiz azalacak.

Uzman arkadaşlardan bakan olur sanırım...

 

[ECYavuz]

Arkadaşlar bu konuda yardımcı olabilecek kimse var mı?

 

[ECYavuz]

Uzman arkadaşlar, Hiç değilse bir bilgi verin Lütfen...

 

[ECYavuz]

19 undan 21 ine bir gelişme yokmu?

 

[ECYavuz]

Arkadaşlar benim konu görünmüyormu? Hiç değilse Bilen biri olmaz desin lütfen...

 

[metot]

arkadaşlar birazcık acele oldu, daha önce forumda excel'den word 'e aktarma ile ilgili olan bir çalışmayı talebe göre güncellemeye çalıştım, umarım başarılı olmuşumdur, dosya ektedir...

 

[ECYavuz]

Sağolasın metot kardeşim... İlgine ve değerli zamanını harcama çok teşekkürler.

Burada ufak bir konu var... Ama sakın boşamı uğraştım diye hayıflanma eline sağlık... Problem TextBox'lara girdiğimiz verileri Excel Hücrelerine aktarmadan bu işi yapabilirmiyiz?

Çünkü Word belgesinde Form seklinde değilde; Örnek olarak;

TextBox1 deki Yazı

TextBox2 deki yazı...

gibi alt alta görünmesini istiyordum...

Yine de dediğim gibi çook teşekkürler.

 

[metot]

sayın ECYavuz

öncelikle rica ederim hiç önemli değil, peki şöyle bir öneride bulunsam excelde alt alta yazdırsak da sonradan word e bu şekilde alsak olabilir mi? küçük bir değişiklik yaptım.

 

[hsayar]

sn metotun uygulamasındaki userform1.commandbuton1 clik olayını değiştirniz

Private Sub CommandButton1_Click()
Dim objWord, myDoc As Object, DosyaAdı As String
Set objWord = CreateObject("Word.Application")

DosyaAdı = Application.InputBox("oluşturulacak olan word dosyasının adını girin", "Dosya")
Set myDoc = objWord.Documents.Add(DocumentType:=wdNewBlankDocument)
    With objWord
                .Visible = True
           With .Selection
                          .TypeParagraph
                          .TypeText Text:=TextBox1.Value
                          .TypeParagraph
                          .TypeText Text:=TextBox2.Value
           End With
                .activedocument.SaveAs "C:\" & DosyaAdı & ".doc"
    End With
Set objWord = Nothing: Set myDoc = Nothing
Unload Me
End Sub

 

[ECYavuz]

Arkadaşlar her ikinize de çok teşekkürler. Beni büyük bir zahmetten kurtardınız ve aslında Forumdaki arkadaşlara da değişik gelecek bir kolaylık sağladınız. Nerede olacağı şimdilik sır kalsın ama yakında....

Bu arada Sayın hsayar Uyarlama konusundaki uzmanlığınızın yanında yardımcı olma konusunda da çok iyisiniz. Tekrar teşekkürler...

 

[hsayar]

Rica ederim ecyavuz dosayayı indirdiğimde önümde wordde açıktı
word makrosu kaydedip az biraz oynadım...
yani çok şey yapmadım.