☰

如何创建宏来用交叉引用替换脚注编号？

tag-icon • tag-icon microsoft-word
如何创建宏来用交叉引用替换脚注编号？

在我的 Word 文档中，我经常看到类似“参见上文，脚注 3”这样的文字。我想用脚注 3 的实际交叉引用替换 3，这样当脚注编号发生变化时，它也会更新。我如何制作宏来自动插入交叉引用？

答案1

您可以使用对象InsertCrossReference的成员Selection：

Sub MkXref()
Selection.InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, Selection.Text, True
End Sub

要使用此宏，请将其分配给键盘快捷键，将光标放在要交叉引用的数字中或之前，然后按下分配的快捷键。

在一些学术著作中，脚注 1 附在作者姓名后面，没有编号。这会使编号失效：显示为“脚注 1”的注释实际上是 Word 计算的脚注 2。要纠正此问题，您可以对 进行算术运算Section.Text：

Sub MkXref()
Selection.InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, (Selection.Text + 1), True
End Sub

请注意，这里没有错误处理。

相关内容