Архив форумов ЦИТФорума

[varrax]

Дурацкий вопрос, но...
Как увеличить размер шрифта везде на определенное значение. На 0.5 пункта, в частности. В документе куча разных стилей и т.д., так что выбрать все и сказать "12 пт." нельзя.

[SAW]

Напиши макрос и запусти его на выполнение...
В простейшем случае, например, если текст состоит только из параграфов внутри которого используется одинаковый шрифт, можно написать так:

Sub chFontSize()
Dim tot As Integer, i As Integer
tot = ActiveDocument.Paragraphs.Count
For i = 1 To tot
Set myRange = ActiveDocument.Paragraphs(i).Range
myRange.Font.Size = myRange.Font.Size + 0,5
Next i
End Sub

[tinimi]

Зачем так умно? с макросами? на 0.5 конечно наверно придется с макросом, а на 1пт можно иначе!
Жмем сервис>настройки>команды>формат
Тут есть 4 комнды:
Увеличить/Уменьшить размер - ето на 2 пт
И Увеличить/Уменьшить размер на 1пт.
Их перетаскиваем на панель и юзаем. ето в 2003
Вообще еще можно нажать
Ctrl+Alt+Shift+R - Увеличить на 1 пт
Ctrl+Alt+Shift+F - Уменьшить на 1 пт,
но ето работало еще в 2000, щас неработает по дефолту, как включить незнаю, не искал. Если кто знает - напишите.
_________________
[ TiNiMi ]