Word 2003 te Belgeleri listeleme işlemi nasıl yapılır?
Öncelikle boş yeni bir belge oluşturuyor ve bunun makro güvenlik ayarlarını yapıyoruz. Sonrasında Visual Basic Araç Çubuğunu kullanarak belgemize iki adet CommandButton nesnesi ekliyor ve bunların name ve caption özelliklerini aşağıdaki Properties / Özellikler Penceresi yardımıyla ayarlıyoruz.
1. Düğme name: btnBelgeleriListele Caption: LİSTELE
2. Düğme name: btnCikis Caption: ÇIKIŞ
Dejavu oldu galiba; Görüldüğü üzere nesnelerin name özelliklerinde Türkçe karakter kullanmamaya dikkat ediyoruz. Sonrasında Alt + F11 ile ekrana gelen kod sayfasına aşağıda verilen kodları yazıyoruz. Bunları yazarken önce Object Browser üzerinden nesnemizi sonrasında da Event Browser üzerinden de Click (tek tıklama) olayını seçiyoruz ve kodlarımızı yazıyoruz.
Son olarak Visual Basic Araç Çubuğundaki Tasarım Modu butonuna tıklayarak tasarım modunu kapatıyor ve Dosya > Yeni ya da Ctrl + N kısayolunu kullanarak yeni belgeler ekliyoruz ve düğmelerimizi test ediyoruz.
Bu örneğimizde belgemizde yer alan son paragraf her işlemde silinmekte ve belgemize yeni bir paragraf eklenmektedir. Böylece listeleme işlemleri sonunda belgemizin gereksiz yere atık veri ile doldurulmasının önüne geçilmektedir. Paragraflar konusunu yazdığımda bu konulara biraz daha fazla değineceğim şimdlik bu kadarı yeter.
Private Sub btnBelgeleriListele_Click()
Dim belge As Variant
' MsgBox ThisDocument.Paragraphs.Count
If ThisDocument.Paragraphs.Count > 1 Then
' Son paragraf siliniyor
On Error GoTo hata
ThisDocument.Paragraphs(ThisDocument.Paragraphs.Count).Range.Delete
' Yeni bir paragraf ekleniyor
ThisDocument.Paragraphs.Add
' Acik olan tum belgelerin isimleri okunuyor
With Documents
For Each belge In Documents
ThisDocument.Content.InsertAfter belge & vbCrLf
Next
End With
End If
Exit Sub
hata:
MsgBox Err.Description, vbCritical + vbOKOnly, "Dikkat 1"
End Sub
Private Sub btnCikis_Click()
'1. Acik belgeyi kaydetmeden cik
Application.Quit wdDoNotSaveChanges
'2. Acik belgeyi kaydet ve cik
' Application.Quit wdSaveChanges
End Sub
Yardımcı olması dileğiyle. Güç sizinle olsun.