Найти или подсчитать все случаи использования конечной заметки в Microsoft Word

Question

Я создал документ с примечаниями к нему. Я несколько раз упоминал отдельные примечания в документе. Как я могу найти все использования или, предпочтительно, подсчитать все использования конечной ноты?

Answer 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