Daniel的学术论文使用了许多脚注。现在，他在每个句子的末尾都有脚注。他想将段落中的所有脚注合并到该段末尾的单个脚注中。他想知道是否有一种自动执行此操作的方法。

无法自动执行此操作，但是您可以使用宏来执行此操作。宏需要做的就是单步阅读文档中的每个段落，看看是否有任何脚注。然后，假设是这样，它将它们串联起来，删除脚注，并在段落的末尾添加带有连接文本的新脚注。这是一个可以完成此操作的宏：

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_网站上的任何其他页面）上描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13767）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。