ジェシカが段落の終わりにある余分なスペースを削除したい場合は、スペースの後に^ pを検索して、それ自体を^ pに置き換えることができることを知っています。ただし、これは脚注や文末脚注では機能しません。おそらく、Wordではそのような注の段落記号の終わりを「置き換える」ことができないためです。ジェシカは、脚注と文末脚注の末尾のスペースを簡単に取り除くことができるように、この制限を回避する方法があるかどうか疑問に思います。

Wordでは、検索と置換を使用してドキュメントの本文の段落の末尾のスペースを削除できますが、脚注と文末脚注に同じ機能を拡張するわけではありません。少なくともすべてではありません。 Wordのバージョン。

たとえば、Word 2007の脚注と文末脚注の両方に末尾のスペースがある場合、検索と置換はJessicaが経験したとおりに機能します。末尾のスペースは変更されません。 Word 2010では、検索と置換により、脚注の末尾のスペースのみが削除されます。文末脚注は変更されません。 Word 2013では、動作はWord 2007の場合と同じです。脚注と文末脚注の両方で、スペースは変更されません。 Word 2016を使用している場合は、脚注と文末脚注の両方から末尾のスペースが削除されます。かなり一貫性がありません！

末尾のスペースをすべて確実に削除したい場合は、2つの方法を使用できます。 1つ目は、次の手順に従うことです。

。脚注領域内を1回クリックします。 （どこでも構いません。エリアのどこかです。）

。 Ctrl + Aを押します。これで、すべての脚注が選択されます。

。 Ctrl + Eを押します。すべての脚注が中央に配置され、末尾のスペースがなくなりました。

。 Ctrl + Lを押します。すべての脚注は、もう一度、左揃えになっています。

。ドキュメント内の文末脚注について、手順1〜4を繰り返します。

もちろん、脚注と文末脚注が左揃え以外の場合、上記の手順はその配置を台無しにします。そのような状況では（そしてそのようなスペースをかなり取り除く必要がある場合）、マクロはより良いアプローチを提示します。これは、脚注と文末脚注の両方の末尾のスペースを取り除く短い小さなものです。

Sub FootEndnoteTrailingSpaces()

Dim fn As Footnote     Dim en As Endnote

For Each fn In ActiveDocument.Footnotes         fn.Range.Text = RTrim(fn.Range.Text)

Next fn     For Each en In ActiveDocument.Endnotes         en.Range.Text = RTrim(en.Range.Text)

Next en End Sub

注：

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

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

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

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