Word2019 论文排版交叉引用和脚注隐藏的两个问题，求帮助

zipei

各位高手，大家好。在论文排版中遇到了关于交叉引用和脚注文字隐藏的两个小问题，遍寻网络，没有找到较好的办法。恳请各位大侠帮忙。谢谢

问题一：

在论文排版过程中，需要将引用同一个参考文献的两个脚注的序号合并为同一行，如下图之中的脚注3和脚注4，在WPS比较容易实现，现在需要在WORD2019中进行，请问应该如何具体操作？

问题二：

以上操作在WPS中可以实现，在WORD2019中，我采用了如下步骤：

1、在脚注3序号后插入交叉引用——脚注编号（以超链接插入）；

2、选中脚注4，设置字体格式——隐藏。

以上两步在WPS中就完成了，可以实现目标效果。但是在WORD2019中出现了脚注5重复的情况。已经试过多次，包括在页面视图、在草稿试图下显示备注后对其进行操作，都会出现两个脚注5。

请问，这个是什么原因造成的，应该如何操作？

约定的童话

有没有考虑用VBA实现？

zipei

约定的童话 发表于 2020-11-15 08:31
有没有考虑用VBA实现？

感谢。下面是我改写的一段VBA，能实现插入交叉引用到隐藏脚注，但是隐藏之后还是出现重叠的问题啊。是不是我写的不对呢？
Sub 插入交叉引用并隐藏脚注()
    On Error Resume Next
    Dim strXh As Long
    strXh = InputBox("")
    Selection.InsertCrossReference ReferenceType:="脚注", ReferenceKind:=wdFootnoteNumber, ReferenceItem:=strXh, InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
    Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToFirst, Count:=strXh, Name:=""
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Hidden = True
End Sub
问题二没有解决

zipei

感谢，下面是我写的一段VBA，可以实现插入交叉引用并隐藏脚注，可是问题二还是没有解决啊
Sub 插入交叉引用并隐藏脚注()
    On Error Resume Next
    Dim strXh As Long
    strXh = InputBox("")
    Selection.InsertCrossReference ReferenceType:="脚注", ReferenceKind:=wdFootnoteNumber, ReferenceItem:=strXh, InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
    Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToFirst, Count:=strXh, Name:=""
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Font.Hidden = True
End Sub

wdpfox

没有附件模拟文档，大家都感觉麻烦，无从“对症下药”

zipei

附件中是模拟文档，下面是对比截图，同一份文件，可以看出区别来。

zipei

哪位老师知道解决办法呢？
我是这样理解的：
1、本页的最后一个脚注隐藏时，是可以正常消失的。
2、非最后一个脚注隐藏时，无法正常消失。
可能原因：1，word设定了脚注的高度，对脚注文字进行隐藏，但是脚注高度没有随之变化，因此中间的脚注出现重复占位的情况。2、脚注的结尾脚注的标记和中间的脚注的标记不一样，因而最后一条脚注可以隐藏，但是中间的脚注无法隐藏。
如果是第一种情况，可能是BUG，如果是第二种情况，可能要解决脚注标记隐藏的问题。如果都不是，那就是我理解错误或者操作错误。
但是现在奇怪的是，在word里面操作的脚注隐藏，在WORD之中显示不正常，但是在WPS显示是正常的。
请各位老师帮助。谢谢。

wdpfox

感觉脚注中有自动编号，成为阻碍，无法达标。