Como posso criar uma macro para substituir um número de nota de rodapé por uma referência cruzada?

Question

Nos meus documentos do Word, frequentemente tenho texto como "Veja acima, nota de rodapé 3". Gostaria de substituir o 3 por uma referência cruzada real à nota de rodapé 3, para que ela seja atualizada se a numeração da nota de rodapé for alterada. Como posso criar uma macro para inserir automaticamente a referência cruzada?

    

Answer 1

Você pode usar o membro InsertCrossReference do objeto Selection :

Sub MkXref()
Selection.InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, Selection.Text, True
End Sub

Para usar essa macro, atribua-a a um atalho de teclado, coloque o cursor no número ou antes do número que deseja fazer referência cruzada e pressione o atalho atribuído.

Em alguns trabalhos acadêmicos, a nota de rodapé 1 é anexada ao nome do autor e não é numerada. Isso define a numeração desativada: a nota que aparece como "nota de rodapé 1" é, na verdade, nota de rodapé 2 pelo cálculo de contas do Word. Para corrigir isso, você pode fazer aritmética em Section.Text :

Sub MkXref()
Selection.InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, (Selection.Text + 1), True
End Sub

Observe que não há tratamento de erros aqui.