乔治只想压缩他在文档中选择的某些文本中单词之间的间隔。他可以一次更改每个空间的点大小。他还可以通过查找空格并将其替换为较小的字体大小来做到这一点。但是，他想逐步减小空间的大小。 （例如，每步为0.1点。）

不可能完全执行George想要的操作，因为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_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13717）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。