ダニエルは、多くの脚注を使用する学術論文を持っています。現在、彼は各文の終わりに脚注を持っています。彼は、段落内のすべての脚注を、段落の終わりにある1つの脚注に結合したいと考えています。彼はこれを自動的に行う方法があるかどうか疑問に思います。

これを自動的に行う方法はありませんが、マクロを使用して行うことができます。マクロが行う必要があるのは、ドキュメントの各段落をステップスルーして、脚注があるかどうかを確認することだけです。次に、そうなると仮定して、それらを連結し、脚注を削除し、段落の最後に連結されたテキストを含む新しい脚注を追加します。これがまさにそれを行うマクロです：

Sub MoveFootnotes()

Dim p As Paragraph     Dim iFN As Integer     Dim J As Integer     Dim oCurPar As Object     Dim sTemp As String

For Each p In ActiveDocument.Paragraphs         sTemp = ""

iFN = p.Range.Footnotes.Count         For J = iFN To 1 Step -1             sTemp = p.Range.Footnotes(J).Range.Text & " " & sTemp             p.Range.Footnotes(J).Delete         Next J         sTemp = Trim(sTemp)

If sTemp > "" Then             Set oCurPar = p.Range             oCurPar.Collapse Direction:=wdCollapseEnd             oCurPar.MoveEnd Unit:=wdCharacter, Count:=-1             ActiveDocument.Footnotes.Add Range:=oCurPar, Text:=sTemp         End If     Next p End Sub

マクロは、各段落の脚注テキストをsTemp文字列に連結することに注意してください。これは、段落の最後に脚注を追加するときに使用されます。これにはマクロの欠点があります。テキストのみをコピーし、テキストのフォーマットはコピーしません。

たとえば、本への引用を含む脚注がたくさんある場合、それらの本のタイトルがイタリックでフォーマットされている可能性があります。

マクロを実行すると、すべてのテキストが表示されますが、斜体は消えます。 （フォーマットをそのまま新しい脚注に転送することを私が知っている方法はありません。）

注：

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

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

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

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