Clase Footnote (Word VBA)

La clase Footnote representa una nota al pie situado en la parte inferior de la página o debajo del texto.

Los principales procedimientos de la clase Footnote son Delete y Footnotes.Add

Set

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

Dim ftn as Footnote
Set ftn = ActiveDocument.Range.Footnotes(Index:=1)

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

For Each

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

Dim ftn As Footnote
For Each ftn In ActiveDocument.Range.Footnotes
	
Next ftn

Métodos

Los principales métodos de la clase Footnote son

Delete - Elimina la nota al pie especificada.

ActiveDocument.Range.Footnotes(1).Delete

Footnotes.Add - Devuelve un objeto footnote que representa una nota al pie agregada a un intervalo.

Dim ftn As Footnote
Set ftn = ActiveDocument.Range.Footnotes.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.Footnotes(1).Index

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

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

Range Devuelve un objeto Range que representa la parte de un documento incluida en la nota al pie.

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

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

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

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

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

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

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

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

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

Footnotes.Location Devuelve o establece la posición de todas las notas al pie.

ActiveDocument.Range.Footnotes.Location = wdBeneathText

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

ActiveDocument.Range.Footnotes.NumberingRule = wdRestartContinuous

Footnotes.NumberStyle Devuelve o establece el estilo de número para las notas al pie.

ActiveDocument.Range.Footnotes.NumberStyle = wdNoteNumberStyleArabic

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

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

Footnotes.Separator Devuelve un objeto Range que representa el separador de notas al pie.

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

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

ActiveDocument.Range.Footnotes.StartingNumber =