Bir belge içeriğindeki bir paragrafın metin blokunu biçimlendirmek.
Bir Paragraph nesnesine ait Alignment özelliğiyle paragrafın metin hizalama şeklini belirlersiniz.
Bu özelliğe WdParagraphAlignment grubundaki adlandırılmış değer seçeneklerinden birini atarsınız:
wdAlignParagraphLeft : Paragraf metni sola dayalı
wdAlignParagraphCenter : Paragraf metni ortalanmış
wdAlignParagraphRight : Paragraf metni sağa dayalı
wdAlignParagraphJustify : Paragraf metni hem soldan, hem sağdan hizalı
Bu son seçenek tek satırı doldurmayacak bir paragraf metninin satırı dolduracak kadar yayılmasıyla sonuçlanacaktır; dikkatli olun.
LeftIndent özelliğiyle paragrafın sol kenar girintisini belirlersiniz.
Bu girinti sayfanın değil, yazı bloğunun sol kenarıyla paragraf blokunun sol kenarı arasındaki yatay boşluktur.
RightIndent özelliğiyle paragrafın sağ kenar girintisini belirlersiniz.
Bu girinti de sayfanın değil, yazı bloğunun sağ kenarıyla paragraf blokunun sol kenarı arasındaki yatay boşluktur.
FirstLineIndent özelliğiyle paragrafın ilk satır girintisini belirlersiniz.
Bu özelliği bir paragrafta satır başı boşluğu yaratmak için kullanırsınız.
SpaceBefore özelliğiyle paragraf öncesi (dikey) boşluğu belirlersiniz.
SpaceAfter özelliğiyle paragraf sonrası (dikey) boşluğu belirlersiniz.
Tüm bu boşluklar bir 1/72 inçe (İngiliz uzunluk birimi) eşit olan “punto” denen özel dizgicilik birimi cinsinden ifade edilirler. Bırakacağınız boşlukları inç, santimetre, milimetre gibi gündelik uzunluk birimleriyle ifade etmek isterseniz,
InchesToPoints,
CentimeterstoPoints,
MillimetersToPoints
dönüştürme fonksiyonlarını kullanmalısınız.
Bu fonksiyonları aslında Word programını temsil eden Application nesnesine aittir, ama nesne adı olmadan, kendi adlarıyla çağırabilirsiniz. Bu fonksiyonlar adlarının başındaki birim türünden bir sayısal değeri tek argüman olarak alır ve sonuç olarak o punto cinsinden bir sayısal değer verirler.
En az dört paragrafı olan bir Word belgesi yaratın veya açın. Paragraflarda birkaç satırlık metinler olsun.
VBA geliştirme ortamında bu belgeye ait “ThisDocument” VBA projesinde bir altyordam yaratın.
Paragraflar koleksiyonundan seçeceğiniz bir paragrafı temsil edecek Paragraph türü bir nesne tanımı ekleyin:
Dim para As Paragraph
Sıra numarasını bildiğiniz (diyelim, 1) bir paragrafa referans yapmak için:
Set para = Me.Paragraphs(1)
komutunu ekleyin.
para nesnesinin ilgili özelliğine değer atayarak, o an eriştiğiniz paragrafın bir özelliğini değiştiren
para.LeftIndent = InchesToPoints(1)
gibi bir komut ekleyin.
Özelliklerini değiştireceğiniz her paragraf için bu son iki adımı tekrarlayın.
İçeriğinde dört paragraf olan bir belgeniz var diyelim. Aşağıda son halini sunduğumuz altyordam bu dört paragrafın girintiler, üst ve alt boşlukları ve metin hizalama şekillleri gibi özelliklerini değiştirecektir.
Kaynak Dosya: “ParagrafOzellikleriniDegistirmek.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 ParagrafOzellikleriDegistirmek()
Dim para As Paragraph
Set para = Me.Paragraphs(1)
para.LeftIndent = InchesToPoints(1)
para.FirstLineIndent = 25
para.SpaceAfter = 0
Set para = Me.Paragraphs(2)
para.SpaceBefore = CentimetersToPoints (5)
para.Alignment = wdAlignParagraphCenter
Set para = Me.Paragraphs(3)
para.Alignment = wdAlignParagraphJustify
para.LeftIndent = 35
Set para = Me.Paragraphs(4)
para.Alignment = wdAlignParagraphRight
para.RightIndent = MillimetersToPoints(15)
End Sub