Объект Endnotes (Word)
Коллекция объектов Endnote , представляющая все концевые сноски в выделенном фрагменте, диапазоне или документе.
Используйте свойство Endnotes , чтобы вернуть коллекцию Endnotes . В следующем примере задается расположение концевых сносок в активном документе.
ActiveDocument.Endnotes.Location = wdEndOfSection
Используйте метод Add , чтобы добавить концевую сноску в коллекцию Endnotes . В следующем примере сразу после выделения добавляется конечная сноска.
Selection.Collapse Direction:=wdCollapseEnd
ActiveDocument.Endnotes.Add Range:=Selection.Range , _
Text:="The Willow Tree, (Lone Creek Press, 1996)."
Используйте endnotes (Index), где Index — это номер индекса, чтобы вернуть один объект Endnote . Номер индекса представляет позицию концевой сноски в выделенном фрагменте, диапазоне или документе. В следующем примере к первой концевой сноске в выделенном фрагменте применяется красное форматирование.
If Selection.Endnotes.Count >= 1 Then
Selection.Endnotes(1).Reference.Font.ColorIndex = wdRed
End If
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.