Paragraf Metinlerinde Yazı Biçimlendirme

Aşağıda son halini sunduğumuz altyordam boş bir belge içeriğine beş paragraf, o paragraflara standart metinler ekleyecek, sonra paragraf bölgelerinin yazı tipi özelliklerine atamalar yaparak paragraf metinlerini biçimlendirecektir:

Sub ParagrafMetinlerindeYaziBicimlendirme()

   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