Encontre ou conte todos os usos de uma nota final no Microsoft Word

Question

Eu criei um documento com notas finais nele. Eu me referi a notas finais individuais várias vezes no documento. Como posso encontrar todos os usos ou, de preferência, contar todos os usos de uma nota final?

    

Answer 1

Você pode ver se o VBA a seguir aproxima você do que você precisa (provavelmente seria necessário um pouco de melhoria para lidar com todos os possíveis locais de referência, etc., e para apresentar melhor a saída).

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