Sub תיבת_טקסט_מותאמת_אישית()
'
' תיבת_טקסט_מותאמת_אישית Macro
'
'
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Grow
    Selection.Font.Bold = wdToggle
    Selection.Font.BoldBi = wdToggle
    Selection.Font.Name = "Livorna"
End Sub