Bir belge içeriğindeki paragraf bölgelerinde yazı tipini biçimlendirmek.
Belgedeki bir bölgeyi temsil eden Range nesnesinin Font özelliğiyle bölgede yazıyı biçimlendirebilirsiniz.
Biçimlendirme için yazı tipini temsil eden Font nesnesinin şu özelliklerini kullanabilirsiniz:
Size yazı boyutunu belirlemek içindir.
Bu özellik değeri punto cinsinden bir değer olmalıdır. İsterseniz başka birim türünden değerleri puntoya dönüştürecek fonksiyonları kullanırsınız.
Bold özelliğine True ya da False değeri atayarak yazının kalın harfli olup olmadığını belirlersiniz.
Italic özelliğiyle yazının yatık harfli olup olmadığını belirlersiniz.
Underline özelliğiyle yazının altı çizili olup olmadığını belirlersiniz.
Bu üç özellik mantıksal belirteç, yani Boolean türündendir. True (doğru) ya da False (yanlış) değerleri alabilirler.
ColorIndex özelliği yazı rengini belirlemek içindir.
Malesef renk adlarıyla onlara karşılık gelen sayı değerlerini eşleştiren bir adlandırılmış değer grubu yoktur. İstediğiniz rengin sayısal kod değerini bilmeniz gerekir.
İstediğiniz sayıda paragrafı olan bir Word belgesi açın veya boş bir tane yaratıp metinler ekleyin.
Bu belgeye ait “ThisDocument” VBA projesinde bir altyordam yaratın.
Sıra numarasıyla eriştiğiniz bir paragraf bölgesinnde yazı biçimlendiren
Me.Paragraphs(1).Range.Font.Size = 14
gibi komutlar ekleyin.
Biçimlendirme yapacağınız her paragraf için yukarıdaki iki adımı tekrarlayın.
Bu belgenin içeriği başlangıçta boştur. Aşağıda son halini sunduğumuz altyordam bu boş belge içeriğine beş paragraf, o paragraflara “Paragraf 1”, “Paragraf 2”, … şeklinde bazı standart metinler ekliyor, sonra paragraf bölgelerinin yazı tipi özelliklerine atamalar yaparak paragraf metinlerini biçimlendiriyor.
Kaynak Dosya: “ParagrafMetinlerindeYaziBicimlendirmek.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 ParagrafMetinlerindeYaziBicimlendirmek()
Dim n As Integer
For n = 1 To 5
Me.Paragraphs.Add
Next
For n = 1 To 5
Me.Paragraphs(n).Range.InsertBefore ("Paragraf " & n)
Next
Me.Content.Font.Name = "Times New Roman"
Me.Paragraphs(1).Range.Font.Size = 14
Me.Paragraphs(2).Range.Font.Bold = True
Me.Paragraphs(3).Range.Font.Italic = True
Me.Paragraphs(4).Range.Font.Underline = True
Me.Paragraphs(5).Range.Font.ColorIndex = 5
End Sub