AccessTr.neT

Vba Kod İle Word Dosyası Oluşturmak için

Dim objWord As Word.Application

Dim doc As Word.Document

Dim WordHeaderFooter As HeaderFooter



Set objWord = CreateObject("Word.Application")



With objWord

    .Visible = True



    Set doc = .Documents.Add

    doc.SaveAs CurrentProject.Path & "\TestDoc.doc" 

End With



With objWord.Selection



 .Font.Name = "Trebuchet MS"

 .Font.Size = 16



  .TypeText "Here is an example test line, #" & " - Font size is " & .Font.Size

  .TypeParagraph



    'Add header and footer



    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Header"

    ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "Footer"

End With



doc.Save

doc.Activate

Bu soru mu? Örnek mi? diye sormaktan ben sıkıldım. Siz konuyu düzgün açmamaktan sıkılmadınız. Şurada az bir zamanım var, bu zamanımı da sorulara cevap yazmak yerine sizin konularınızı düzeltmeyle geçiriyorum.

Bu soru mu? Örnek mi? Soru ise soru içeriği nerede? Örnek ise niye sorular bölümünde. Bu şekilde devam ederseniz konu açmanızı yönetici onaylı hale getirmek zorunda kalacağım. Konularınız yönetici onaylarsa yayımlanacak.

şimdi bu hem soru hem örnek birileri ilgilenip cevap yazarsa 
bu kod ile txt dosyasıda oluşturulabilir mi diye soracaktım

O zaman sorularınızı düzgün, ayrıntılı sorun "Vba Kod İle Word Dosyası Oluşturmak için" şeklinde mesaj yazıp altına nereden bulunduğu belirsiz kod yazmayın.
Örnek uygulama eklersiniz, tablosunda 8-10 tane veri olur. "Formdaki Butona Tıkladığımda tablodaki verileri adi;soyadi;sicili;adresi formatında txt belgesine nasıl aktarabilirim diye sorarsınız. Bu şekilde konu açılmaz.

-Bu kodla txt belgesi oluşturamazsın.
-Farklı kod ile txt belgesi oluşturulur, ancak oluşturulacak txt belgesinin içeriğinde ne yazılacağını her zamanki gibi belirtmemişsiniz.

Site Kuralları:

(06/07/2009, 23:57)AccessTr.neT yazdı: [ -> ]5-a) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili (3. maddede anlatıldığı gibi) eklediğiniz örnek uygulamadaki form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. 
Sürekli ihlalde uyarı puanı verilecektir. 
Uyarı Bitiş Süresi : 4 Ay,
Uyarı Seviyesi +2

bunu Access örneklerine nasıl taşıyabilirim