Bir belge içeriğine metin eklemek.
Bir Word belgesine ait VBA projesi kodlarında belgenin kendisine Me özel nesnesi aracılığıyla erişebilirsiniz.
Me özel nesnesi her zaman bir belgeyi temsil eder sanmayınız. Bu terim aslında o an üzerinde çalıştığınız kod dosyasının sahibi her neyse, bir Word belgesi, bir Excel çalışma sayfası/kitabı ya da bir form, onu temsil edebilir.
Aslında belge Document türü bir nesnedir.
Belge tüm içerik bölgesini (tüm metin, tablolar, şekiller, vb.) temsil eden Content özelliğine de Me.Content şeklinde, özel nesne Me aracılığıyla erişebilirsiniz.
Belgeye ait proje kodlarında içerik bölgesine erişmek için yalnızca özellik adı Content yeterlidir, ama prensip icabı olarak bir nesneye ait özelliği kullanmak için nesne adını da eklemenizi öneririz.
Content özelliği aslında Range türünden bir nesnedir. Bu türden bir nesne yalnızca belgenin tüm içeriğini değil, içerik dahilindeki herhangi bir bölgeyi temsil edebilir.
Bu türe ait
InsertBefore fonksiyonuyla bölge başlangıcından öncesine,
InsertAfter fonksiyonuyla da bölge sonunun ötesine eklemeler yapabilirsiniz.
İçerik bölgesine metin ekleyen bu iki fonksiyon da tek argüman olarak vereceğiniz karakter dizgisini bölgeye metin olarak ekler.
InsertParagraphBefore ile bölge başlangıcından öncesine,
InsertParagraphAfter ile bölge sonunun ötesine paragraf sonu karakteri ekletebilirsiniz.
Bu iki fonksiyonla belge içeriğindeki bir konumun öncesine veya sonrasına bir paragraf sonu karakteri eklettiğinizde, aslında belge içeriğinde yeni bir paragraf yaratmış olursunuz.
Boş veya içeriği olan bir Word belgesi yaratın veya açın.
Bu belgeye ait “ThisDocument” VBA projesinde bir altyordam yaratın.
Belge içeriği öncesine bir boş paragraf ekletmek için
Me.Content.InsertParagraphBefore
komutunu ekleyin.
Belge içeriği öncesine eklettiğiniz boş paragrafa metin ekletmek için
Me.Content.InsertBefore "İçerik öncesine eklenecek metin"
şeklinde bir komut ekleyin.
Belge içeriği sonrasına bir boş paragraf ekletmek için
Me.Content.InsertParagraphAfter
komutunu ekleyin.
Belge içeriği sonrasına eklettiğiniz boş paragrafa metin ekletmek için
Me.Content.InsertAfter "İçerik sonrasına eklenecek metin"
şeklinde bir komut ekleyin.
Bu örneğin üzerinde çalışacağı belge tek satırlık, mektup türünden bir belgedir:
Hemşo, nasılsın, iyi misin?
Aşağıda son halini sunduğumuz altyordam bu mektup belgesine bir hitap paragrafı ve bir de bitiş paragrafı ekleyecektir.
Kaynak Dosya: “BelgeIcerigineMetinEklemek.docm”
Unutmayın; kitap veya ekran satırına sığmayan komut satırları alta sarkmış olabilir. Siz onları tek satır olarak yazacaksınız!
Sub BelgeIcerigineMetinEklemek()
Me.Content.InsertParagraphBefore
Me.Content.InsertBefore "Sayın Abüziddin Kelaynak,"
Me.Content.InsertParagraphAfter
Me.Content.InsertAfter "Sağlıcakla kalmanı dilerim."
End Sub
Altyordam çalıştıktan sonra belge içeriği aşağıdaki gibi olacaktır:
Sayın Abüziddin Kelaynak,
Hemşo, nasılsın, iyi misin?
Sağlıcakla kalmanı dilerim.