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

1 ответ1

0

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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .