スティーブンは、メインテキストに多数のハイパーリンクを含む大きなドキュメント（300ページ以上）を持っています。また、ドキュメントには脚注があります。各ハイパーリンクは脚注に変換する必要があります。これにより、（もちろん）ドキュメント内の脚注の数が増えます。

増加は問題ではありません。問題は、これらすべてのハイパーリンクを脚注に変換する高速な方法を考え出すことです。スティーブンは、これがマクロを使用して実行できるかどうか疑問に思います。

実際、これはマクロを使用して実行できます。実際、マクロは想像以上に単純な場合があります。次に例を示します：

Sub LinksToFootnotes()

Dim hLink As Hyperlink     Dim rTemp As Range     Dim J As Integer

For Each hLink In ActiveDocument.Hyperlinks         Set rTemp = hLink.Range

' Create footnote         ActiveDocument.Footnotes.Add Range:=rTemp, _           Text:=rTemp.Text

' Delete possible leading space         rTemp.Collapse         rTemp.MoveStart Count:=-1         If rTemp.Text = " " Then rTemp.Delete     Next hLink

' Delete hyperlinks     For J = ActiveDocument.Hyperlinks.Count To 1 Step -1         ActiveDocument.Hyperlinks(J).Range.Delete     Next End Sub

この例では、ドキュメント内のすべてのハイパーリンクを2回通過します。

最初のパスで脚注を作成し、2番目のパスでハイパーリンクを削除します。また、ハイパーリンクの前にスペースがあるかどうかを確認するコードの部分にも注意してください。これは、スペースがある場合はそのスペースを削除して、結果の脚注番号をそのスペースの直前に配置できるようにするために行われます。 （言い換えると、これが行われなかった場合は、すべての脚注番号の前にスペースを入れることをお勧めします。）

これにより、注意が必要なマクロに関する別の問題が発生します。脚注を作成し、ハイパーリンクを削除するだけです。元のハイパーリンクを囲む情報（括弧、コンマ、ピリオドなど）がある場合、それらの文字はドキュメントに残ります。つまり、マクロの実行後にドキュメントを手動でパススルーして、不要な可能性のある文字が希望どおりに編集されていることを確認する必要があります。

最後に、脚注に配置されたハイパーリンクはアクティブなハイパーリンクではなく、テキストのみであることに注意してください。ただし、脚注を含むドキュメントを作成する場合は通常、プレーンテキストが望ましいため、これは大きな問題ではありません。

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

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