AccessTr.neT

Tam Versiyon: Vba Kod İle Word Dosyası Oluşturmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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