Поделиться через

Объект 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 и обратная связь.