Suchen oder zählen Sie alle Verwendungen einer Endnotiz in Microsoft Word

291
muzzamo

Ich habe ein Dokument mit Endanmerkungen erstellt. Ich habe im Dokument mehrfach auf einzelne Endnoten hingewiesen. Wie kann ich entweder alle Verwendungen finden oder vorzugsweise alle Verwendungen einer Endnote zählen?

0

1 Antwort auf die Frage

0

Sie könnten sehen, ob Sie mit dem folgenden VBA alles erreichen, was Sie benötigen (es würde wahrscheinlich einige Verbesserungen erfordern, um alle möglichen Referenzpositionen usw. zu behandeln und die Ausgabe besser darzustellen).

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

Verwandte Probleme