Clase Endnote (Word VBA)

La clase Endnote representa una nota al final.

Los principales procedimientos de la clase Endnote son Delete y Endnotes.Add

Set

Para usar una variable de clase Endnote, primero debe ser instanciado, por ejemplo

Dim end as Endnote
Set end = ActiveDocument.Range.Endnotes(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Endnote : Endnotes.Add, Endnotes.Item, Document.Endnotes, Range.Endnotes y Selection.Endnotes

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Endnote en una colección.

Dim end As Endnote
For Each end In ActiveDocument.Range.Endnotes
	
Next end

Métodos

Los principales métodos de la clase Endnote son

Delete - Elimina la nota final especificada.

ActiveDocument.Range.Endnotes(1).Delete

Endnotes.Add - Devuelve un objeto EndNote que representa una nota al final agregada a un intervalo.

Dim end As Endnote
Set end = ActiveDocument.Range.Endnotes.Add(Range:=)

Propiedades

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Endnotes(1).Index

Parent Devuelve un objeto Object que representa el objeto primario del objeto Endnote especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Endnotes(1).Parent

Range Devuelve un objeto Range que representa la parte de un documento incluida en el objeto especificado.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Endnotes(1).Range

Reference Devuelve un objeto Range que representa una marca de referencia de nota al final.

Dim rngReference As Range
Set rngReference = ActiveDocument.Range.Endnotes(1).Reference

Endnotes.ContinuationNotice Devuelve un objeto Range que representa el aviso de continuación de nota al final.

Dim rngContinuationNotice As Range
Set rngContinuationNotice = ActiveDocument.Range.Endnotes.ContinuationNotice

Endnotes.ContinuationSeparator Devuelve un objeto Range que representa el separador de continuación de nota al final.

Dim rngContinuationSeparator As Range
Set rngContinuationSeparator = ActiveDocument.Range.Endnotes.ContinuationSeparator

Endnotes.Count Devuelve un Long que representa el número de notas al final de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Endnotes.Count

Endnotes.Location Devuelve o establece la posición de todas las notas al final.

ActiveDocument.Range.Endnotes.Location = wdEndOfDocument

Endnotes.NumberingRule Devuelve o establece el sistema de numeración de las notas al final después de los saltos de página o de sección.

ActiveDocument.Range.Endnotes.NumberingRule = wdRestartContinuous

Endnotes.NumberStyle Devuelve o establece el estilo de número.

ActiveDocument.Range.Endnotes.NumberStyle = wdNoteNumberStyleArabic

Endnotes.Parent Devuelve un objeto Object que representa el objeto primario del objeto Endnotes especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Endnotes.Parent

Endnotes.Separator Devuelve un objeto Range que representa el separador de notas al final.

Dim rngSeparator As Range
Set rngSeparator = ActiveDocument.Range.Endnotes.Separator

Endnotes.StartingNumber Devuelve o establece el número inicial de nota, número de línea o número de página.

ActiveDocument.Range.Endnotes.StartingNumber =