Word: Как с помощью макроса увеличивать и уменьшать размер шрифта на 0,5?

[Petrovich]

Приветствую всех!
А кто сможет подсказать, можно ли макросами увеличить или уменьшить размер шрифта выделенного текста на 0,5? Кнопки на панели word это позволяют сделать, но только на 1 пункт. А надо на 0,5 в большую или меньшую сторону!

[Администратор]

Да, можно это сделать.

Уменьшение шрифта в выделенном тексте на 0,5:
Sub Макрос1()
    Selection.Font.Size = Selection.Font.Size - 0.5
End Sub

Увеличение шрифта в выделенном тексте на 0,5:
Sub Макрос2()
    Selection.Font.Size = Selection.Font.Size + 0.5
End Sub

[Petrovich]

Благодарю!