Я создал документ с примечаниями к нему. Я несколько раз упоминал отдельные примечания в документе. Как я могу найти все использования или, предпочтительно, подсчитать все использования конечной ноты?
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