Word'un İstenilen Satırına Yazdırma..

[pekerl]

Arkadaşlar Merhaba!

Ben bir word sayfasına form dan veri aktarımında bulunuyorum.Yanlız bazı verilerin istediğim satır'a yazılmasını isitoyorum..word'e yazdırma kodum şu ;

objword.Selection.TypeText Text := "www.excel.web.tr"

Ben Kodu istediğim satır'a yazdırmak istiyorum...

Üstte yazdığım koda ek olarak ne yazmalıyım ki mesala 26.satıra yazdırsın üsteki yazıyı...

Teşekkür Ederim!

 

[udentr2002]

arkadaşım ben formdan worde kayıt için şöyle bir şey yapmıştım wordde tablo oluşturuyorsun sonra bu tablolarda yazdırmak istediğin alanı seçip araç çubuklarından ekle>yerimi deyip çıkan bölüme bir ad veriyorsun. böylece aktarmak istediğin alanı belirtmiş oluyorsun. kaç tane alan istersen o kadar yer belirtebilrsin farklı adlar vermek şartı ile sonra kodlarında bu yeri belirtiyorsun. Örnek bir dosya gönderiyorum inşallah işine yarar.

Bu arada bu konu hakkında benim de uğraştığım bir proje var farklı çözümler arıyorum kendime sendekendi dosyanı eklersen en azından belki senin dosyandaki kodlarda bana bir fikir verebilir. iyi çalışmalar

 

[Haluk]

Bu kod, Word VBA altında çalışır ...

Sub Test()
    If ActiveDocument.Paragraphs.Count < 26 Then
        For i = 1 To 26 - ActiveDocument.Paragraphs.Count
            ActiveDocument.Paragraphs.Add
        Next
    End If
    ActiveDocument.Paragraphs(26).Range.Text = "www.excel.web.tr"
End Sub

 

[pekerl]

Sn.Haluk;
Öncelikle teşekkür Ederim cevabınız için
çalışıyor kod doğru..yanlız 3.satırı yazırırken şöyle bir hata veriyor ;

"Bu , bir satır sonu için geçersiz bir eylem" hatasını alıyorum..

Çözümü nedir acaba?

Teşekkürler

 

[Haluk]

Dosyanızı eklerseniz, onun üzerinden bakabilirim ...

 

[udentr2002]

haluk hocam aynı konu banada lazım yanlız benim öğrenmek istediğim bir şey daha var aynı satıra diyelimki 26 . satırın başına "www.excel.web.tr" yazdırdık peki aynı satırın devamına yani www.excel.web.tr den bir tab sonra başka bir veri daha girmek istersek nasıl bir şey eklememiz lazım şöyle

www.excel.web.tr udentr2000

gibi mesala

 

[Haluk]

...... aynı satıra diyelimki 26 . satırın başına "www.excel.web.tr" yazdırdık peki aynı satırın devamına yani www.excel.web.tr den bir tab sonra başka bir veri daha girmek istersek nasıl bir şey eklememiz lazım şöyle

www.excel.web.tr udentr2000

gibi mesala

Sub Test2()
    If ActiveDocument.Paragraphs.Count < 26 Then
        For i = 1 To 26 - ActiveDocument.Paragraphs.Count
            ActiveDocument.Paragraphs.Add
        Next
    End If
    ActiveDocument.Paragraphs(26).Range.Text = "www.excel.web.tr" & vbTab & "udentr2000 "
End Sub

 

[udentr2002]

Hocam

Öncelikle ilginiz için teşekkür ederim yanlız ben dosyama uyarlayamadım tablolar içerisine bilgileri yazdırmak isitiyorum bunun için örnek ekli bir dosya gönderiyorum dosyanın içinde anlattım hocam ilgilenirseniz çok sevineceğim

 

[Haluk]

Tablolara yazdırmak için ekli dosyayı inceleyebilirsiniz...




.

 

[udentr2002]

hocam gerçekten çok ama çok teşekkür ederim beni çok uzun kod yazmaktan kurtardınız bunu yer imleri ile yapıyordum ancak yüzlerce yer imi belirtmek zorunda kalıyordum.

Bir şey daha sormak isitiyorum; Benim tablolarım dosyamın farklı sayfalarında tekrarlanıp duruyor yani aynı tablo dosyanın bir çok yerinde var acaba bu tabloları eşitlemek gibi bir şansımız varmı acaba yani mesala tablo1'e yazdılan veriler aynı şekilde tablo2 de de görünebilrmi kod yazmadan hani excelde mesal a1 hücresine gelip =b1 yazdığımızda b1 e yazılan aynı anda a1 e de yazlıyoryas bunun gibi bir şey yani tablo1 için yazdığımız kodları yine tablo2 içinde yazmak zorundamıyız bu konu hakkında da yardımlarınızı rica edeceğim hocam. Verdiğiniz Bilgiler içinde tekrar tekrar teşekkür ederim

 

[Haluk]

Word tablolarında aynen Excel tablolarında olduğu gibi alan formülleri kullanılabilir ancak, aradaki fark .... Word tabloları Excel tabloları gibi dinamik olmadığı için her data değişmesinde ilgili tabloya gidip, alanları güncellemek zorundasınız.

O nedenle, yukarıdaki kod mantığıyla daha rahat işinizi halledebilirsiniz.

Aslında, tabloların güncellenmesi de yine kod yardımıyla yapılabilir ama hem formüllerin bozulma riski var hem de dosya hantallaşabilir.

 

[udentr2002]

teşekkürler hocam bu şejkilde bile olsa işimi görecektir Allah razı olsun hakkınızı helal edin

 

[pekerl]

Çok Teşekkür Ederim Haluk Bey..