Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Коллекция объектов 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 и обратная связь.