Способ мгновенного уменьшения и увеличения интервала между символами в строке с помощью программирования в Word

В предыдущей статье мы рассмотрели способ сжатия текста документа с помощью изменения интервала между строками (ссылка на статью) используя программирование на VBA. В этой статье мы рассмотрим другой способ сжатия или увеличение объема документа - изменение интервала между символами в строке (как это работает можно посмотреть в этом видео)

Необходимо в первом абзаце сжать текст таким образом, чтобы количество строк было равным 6, т.е. слова фрагмент "друг друга" переместился на строку выше

Результат смещения должен быть таким

результат уменьшения интервала между символами строки

Как мы видим, размер абзаца уменьшился на одну строку.

Как всегда, есть два способа выполнить это действие:

способ № 1 - с помощью имеющегося инструмента Microsoft Word

способ № 2 - программирование на VBA

Рассмотрим по порядку оба этих способа.

Способ № 1. Изменение интервала между символами

1. Выделите фрагмент текста, в котором нужно уменьшить или увеличить интервал между символами.

2. На вкладке "Главная" выберите и нажмите на кнопку в правом нижнем углу группы "Шрифт"

или нажмите на сочетание клавиш "Ctrl+D"

3. После нажатия появляется окно редактирования "Шрифта"

На вкладке "Дополнительно" находится наша цель - "Интервал". По умолчанию в выпадающем списке стоит значение - "Обычный".

4. Изменяя значение этого выпадающего списка

при значении "Уплотненный" чем выше числовое значение в соседнем поле тем шрифт более уплотнен

вы получаете нужное уплотнение расстояния между символами.

Для того чтобы уместить фрагмент текста в одной строке, Вам может понадобится повторить эти действия несколько раз. Для того, чтобы ускорить это действие, Вам понадобится использовать язык программирования VBA

Способ № 2 - изменение интервала между символами с помощью программирования на VBA

Как всегда переходим в редактор VBA через вкладку "Разработчик" или с помощью комбинации клавиш "Alt+F11"

Красной рамкой отмечено поле, куда необходимо вводить код

И в поле ввода кода скопируйте и вставьте следующий код:

Sub УменьшитьИнтервал()

Dim sel As Selection 'задаем переменную sel которая будет отвечать за выделенный фрагмент текста

Set sel = Selection ' непосредственно присваиваем переменной sel выделенный фрагмент текста

sel.Font.Spacing = .Font.Spacing - 0.1 ' в этой строке часть кода sel.Font.Spacing отвечает за свойство интервала между символами в выделенном тексте, а с помощью правой части "= .Font.Spacing - 0.1" мы из самого значения интервала вычитаем величину равную 0,1 пт, тем самым уменьшая интервал. Если вместо " - " поставить знак плюс, то интервал будет увеличиваться.

End Sub

Код очень небольшой, но позволит экономить очень много времени.

Если же вы эту процедуру выведете в панель быстрого запуска, то будет достаточно просто выделить текст и нажимать на эту клавишу. Интервал в выделенном тексте будет меняться в отличие от способа № 1 в 100 раз быстрее.

Если статья вам понравилась, ставьте лайки и подписывайтесь на канал.