Como converter comentários em notas de rodapé ou notas finais no Microsoft Word?
AutoraSiluvia•Data de Modificação
Suponha que o seu documento do Word contenha vários comentários. Como convertê-los todos, de forma simultânea, em notas de rodapé ou notas finais? Este artigo apresenta métodos VBA para o conseguir.
Converter comentários em notas de rodapé ou notas finais com código VBA
Os códigos VBA abaixo permitem-lhe converter rapidamente todos os comentários do Documento Atual em notas de rodapé ou notas finais. Siga os passos seguintes.
1. Abra o documento que contém os comentários que pretende converter em notas de rodapé ou notas finais e prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Depois, copie o código VBA abaixo para a janela do Módulo.
Código VBA: Converter comentários em notas de rodapé:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
Código VBA: Converter comentários em notas finais:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 para executar o código.
De seguida, todos os comentários no Documento Atual são convertidos automaticamente em notas de rodapé ou notas finais, conforme o código VBA que aplicou.
Faça Mais em Menos Tempo com o Kutools para Word Potenciado por IA
O Kutools para Word não é apenas um conjunto de ferramentas — é uma solução inteligente concebida para potenciar a sua produtividade. Com funcionalidades impulsionadas por IA e as ferramentas mais essenciais, o Kutools permite-lhe fazer mais em menos tempo:
Resuma, reescreva, componha e traduza conteúdos em tempo real.
Revise o seu texto em tempo real, com sugestões de gramática, pontuação e estilo à medida que escreve.
Reformule e traduza conteúdos, mantendo inalterados o esquema, o estilo e a estrutura.
Traduza os seus conteúdos facilmente para mais de 40 idiomas e amplie o seu alcance global.
Obtenha ajuda imediata e informações inteligentes com base no seu Documento Atual.
Pergunte como concluir uma tarefa — por exemplo, remover uma Quebra de Secção — e a IA orientá-lo-á ou executá-la-á por si.
Redija informações sensíveis ou confidenciais em segundos e garanta total privacidade.
Todas as ferramentas funcionam perfeitamente no Word, sempre ao seu alcance.
Crie, aperfeiçoe, traduza, resuma e proteja documentos com facilidade.
Melhore a gramática, a clareza e o tom enquanto escreve, em tempo real.
Reformule e traduza conteúdos sem alterar o esquema ou a formatação.
Pergunte como concluir uma tarefa — por exemplo, remover uma quebra de secção — e a IA orientá-lo-á ou executá-la-á por si.
Todas as ferramentas funcionam perfeitamente no Word, sempre à sua disposição.
✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!
Inclui Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint
📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade
