ジョージは、ドキュメント内で選択したテキスト内の単語間のスペースのみを要約したいと考えています。彼は各スペースのポイントサイズを一度に1つずつ変更できます。彼はまた、スペースを見つけて、それをより小さなフォントサイズのスペースに置き換えることによってそれを行うことができます。しかし、彼はスペースのサイズを段階的に減らしたいと思っています。 （たとえば、各ステップで0.1ポイント。）

Wordではフォントサイズを10ポイント単位ではなく、1/2ポイント単位でしか調整できないため、Georgeが望んでいることを正確に行うことはできません。一度に半分ずつデクリメントすることで問題が解決する場合は、マクロを使用するのが最善の方法です。

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ここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13717）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。