Classe Footnote - nota de rodapé (Word VBA)

A classe Footnote representa uma nota de rodapé posicionada no final da página ou abaixo do texto. O objeto Footnote é um membro das notas de rodapé coleção. A coleção Footnotes representa as notas de rodapé em uma seleção, intervalo ou documento. Para usar uma variável de classe Footnote, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens Footnote em uma coleção.

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

Delete

Exclui a nota de rodapé especificada.

ActiveDocument.Range.Footnotes(1).Delete

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

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

Range

Retorna um objeto Range que representa a parte de um documento que está contida na nota de rodapé.

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

Reference

Retorna um objeto Range que representa uma marca de referência de nota de rodapé.

Set myRange = ActiveDocument.Footnotes(1).Reference 
myRange.Copy