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

Question

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

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

0

microsoft-word footnote

Источник

muzzamo 27 авг '13 в 05:07

1 ответ

Решение

Другие вопросы по тегам microsoft-word footnote

28 авг '13 в 13:57 2013-08-28 13:57 · Accepted Answer · 2013-08-28 13:57

Вы могли бы увидеть, если следующий 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