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

260
muzzamo

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

0

1 ответ на вопрос

0

You could see if the following VBA gets you anything close to what you need (it would probably need quite a bit of improvement to deal with all possible reference locations, etc., and to present the output better).

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

Похожие вопросы