Джордж хотел бы сжать только пространство между словами в тексте, который он выделяет в документе. Он может изменять размер каждой ячейки по одному. Он также может сделать это, найдя пробел и заменив его пробелом с меньшим размером шрифта. Однако он хотел бы шаг за шагом уменьшать размер пространства. (Например, 0,1 балла на каждом шаге.)

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

Sub StepSpaceFontSize()

Dim F As Double     Dim C As Long

For C = 1 To Len(Selection)

If Asc(Mid(Selection, C, 1)) = 32 Then             F = Selection.Range.Characters(C).Font.Size             If F > 5 Then                 Selection.Range.Characters(C).Font.Size = (F - 0.5)

End If         End If     Next C End Sub

Макрос проходит через каждый символ в любом выделенном тексте и, если символ является пробелом, уменьшает размер точки только этого пробела. Макрос устанавливает нижний предел размера шрифта, так как он будет уменьшен только до 5 пунктов.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13717) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.