Como converter todas as notas finais em Texto Simples no Word

As notas finais no Word são normalmente utilizadas para citações ou referências adicionais, mas poderá haver ocasiões em que precise convertê-las em texto normal para facilitar a edição ou formatação. Copiar e colar manualmente cada nota final pode tornar-se tedioso, especialmente em documentos longos. Este guia apresenta-lhe três formas eficientes de transformar notas finais em texto simples:

Converter Notas de Fim em Texto manualmente

Converter Notas de Fim em Texto com Kutools para Word

Converter Notas de Fim em Texto com VBA

---

Converter Notas de Fim em Texto manualmente

Siga estes passos para converter manualmente notas finais em Texto Simples no Word:

1. Coloque o cursor em qualquer lugar na secção das notas finais e, em seguida, prima Ctrl + A para selecionar todas as notas finais no documento.
2. Prima Ctrl + C para copiar as notas finais selecionadas.
3. Prima Ctrl + End para mover o cursor para o fim do documento, imediatamente antes da secção das notas finais.
4. Prima Ctrl + V para colar as notas finais copiadas no final do documento. As notas finais manterão a sua ordem, mas serão convertidas em texto simples.

   

5. Substitua manualmente o número «1» que precede cada nota de rodapé colada pelo seu número original, se necessário.

---

Converter Notas de Fim em Texto facilmente com Kutools para Word

Converter manualmente notas de fim em texto no Word pode ser tedioso, especialmente para principiantes não familiarizados com VBA. Contudo, com o Kutools para Word, pode realizar esta tarefa rapidamente com apenas um clique, graças à funcionalidade Convert Endnotes to Text.

1. Clique em Kutools>Converter>Convert Endnotes to Text.

   

Assim que clicar em Convert Endnotes to Text, as notas finais no seu documento serão instantaneamente convertidas em texto, conforme demonstrado nas imagens abaixo:

---

Converter Notas de Fim em Texto com VBA

No Word, também pode converter notas finais em texto simples utilizando código VBA. Siga estes passos:

1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Módulono separador Inserir, depois copie e cole o seguinte código VBA na janela do Módulo.

   Sub convertendnote()
   Dim aendnote As Endnote
   For Each aendnote In ActiveDocument.Endnotes
   ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
   & vbTab & aendnote.Range
   aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
   Next aendnote
   For Each aendnote In ActiveDocument.Endnotes
   aendnote.Reference.Delete
   Next aendnote
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find.Replacement.Font
   .Superscript=True
   End With
   With Selection.Find
   .Text="(a)([0-9]{1,})(a)"
   .Replacement.Text="\2"
   .Forward=True
   .Wrap=wdFindContinue
   .Format=True
   .MatchWildcards=True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   End Sub

3. Clique no botão Executar ou prima F5 para executar o código VBA.

Demonstração: Converta todas as notas finais em texto rapidamente no Word

---

Artigos relacionados:

• Converter vários Tabelas para Texto no Word
• Converter Equação em Imagem no Word

---