Метод Font.Shrink (Word)
Уменьшает размер шрифта до следующего доступного размера.
выражение. Shrink
Выражение Переменная, представляющая объект Font .
Если выделенный фрагмент или диапазон содержит несколько размеров шрифта, каждый размер уменьшается до следующего доступного параметра.
В этом примере в новый документ вставляется строка из Z все меньшего размера.
Set myRange = Documents.Add.Content
myRange.Font.Size = 45
For Count = 1 To 5
myRange.InsertAfter "Z"
For Count2 = 1 to 3
myRange.Characters(Count).Font.Shrink
Next Count2
Next Count
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.