組版には、文の終わりの後にスペースを1つだけ入れるという不文律があります。これにより、特にプロポーショナル書体を使用する場合に、印刷されたページで最高の視覚的外観が得られます。問題は、文の最後に気付かないうちにスペースを追加しやすいことです。次のマクロCheckSpacesは、文の終わりを再確認するために使用できるツールです。

Sub CheckSpaces()

Call MakeChanges("Normal", ".")

Call MakeChanges("Normal", "!")

Call MakeChanges("Normal", ":")

End Sub
Sub MakeChanges(StyName As String, PuncMark As String)

Selection.HomeKey Unit:=wdStory     Selection.Find.ClearFormatting     Selection.Find.Style = ActiveDocument.Styles(StyName)

Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = PuncMark & "   "

.Replacement.Text = PuncMark & " "

.Forward = True         .Wrap = wdFindContinue         .Format = True     End With     Selection.Find.Execute Replace:=wdReplaceAll     Selection.Find.Text = PuncMark & "  "

Selection.Find.Execute Replace:=wdReplaceAll End Sub

CheckSpacesは、Normalスタイルでフォーマットされた段落から余分なスペースのみを取ります。これにより、ピリオドの後に余分なスペースが必要になる可能性のあるテーブルやその他のデザイン要素の書式設定を台無しにすることがなくなります。検索する句読点の種類を変更したり、別のスタイルの段落で検索したりする場合は、マクロの4行目の後にMakeChangesへの呼び出しを追加します。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（9695）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link：/ word-Consistent_Spacing [ConsistentSpacing]。