☰

在 Microsoft Word 中查找或统计尾注的所有用法

tag-icon • tag-icon microsoft-word footnote
在 Microsoft Word 中查找或统计尾注的所有用法

我创建了一个包含尾注的文档。我在文档中多次引用了单个尾注。我如何才能找到尾注的所有用法或最好统计尾注的所有用法？

答案1

您可以查看以下 VBA 是否能让您接近所需的内容（可能需要相当大的改进才能处理所有可能的参考位置等，并更好地呈现输出）。

Sub countEndNoteRefs()
Dim bShowHidden As Boolean
Dim eno As Word.Endnote
Dim fld As Word.Field
Dim lCount As Long
Debug.Print "Note", "Refs", "Text"
For Each eno In ActiveDocument.Endnotes
  bShowHidden = eno.Reference.Bookmarks.ShowHidden
  eno.Reference.Bookmarks.ShowHidden = True
  lCount = 0
  If eno.Reference.Bookmarks.Count > 0 Then
    For Each fld In ActiveDocument.Fields
      If fld.Type = Word.WdFieldType.wdFieldNoteRef Then
        If InStr(1, UCase(fld.Code), UCase(eno.Reference.Bookmarks(1).Name)) > 0 Then
          lCount = lCount + 1
        End If
      End If
    Next
  End If
  eno.Reference.Bookmarks.ShowHidden = bShowHidden
  Debug.Print eno.Index, lCount, eno.Range.Text
Next
End Sub

相关内容