6 maneiras de converter todas as notas de rodapé em notas finais e vice-versa em seu documento do Word

Neste artigo, forneceremos 6 maneiras de converter todas as notas de rodapé em notas finais e vice-versa em seu documento do Word.

Todos sabem que, por padrão, os textos das notas de rodapé são organizados na parte inferior das páginas individuais, enquanto as notas finais são encontradas no final de um documento. No entanto, essas configurações padrão não podem satisfazer as pessoas o tempo todo. Até o Word possui um comando interno para os usuários converterem notas de rodapé em notas de fim e vice-versa. Por isso, geramos 6 métodos para você pegar.

Método 1: Converter todas as notas de rodapé em notas finais em um documento manualmente

Aqui é onde as notas de rodapé e notas de fim geralmente ficam:

1. Para começar, clique na guia “Referências” e, em seguida, clique no botão de seta no grupo “Notas de rodapé” para abrir a caixa de diálogo “Nota de rodapé e nota de fim”.
2. Em seguida, clique no botão “Converter”.
3. Em seguida, selecione a opção “Converter todas as notas de rodapé em notas de fim”.
4. E clique em “OK”.
5. Por fim, feche a caixa “Footnote and Endnote”.

Aqui está o efeito:

Método 2: Converter manualmente todas as notas de fim em notas de rodapé em um documento

Converter notas de fim em notas de rodapé é praticamente o mesmo.

1. Repita os passos 1 e 2 do método 1.
2. Desta vez, selecione a opção “Converter todas as notas de fim em notas de rodapé”.
3. Ainda assim, repita as etapas 4 e 5 do método 1.

Verifique o seguinte resultado:

Método 3: Converter todas as notas de rodapé em notas finais em um documento via VBA

1. Primeiro, pressione “Alt+F11” para abrir o editor VBA no Word.
2. Em seguida, clique em “Normal”.
3. Clique na guia "Inserir".
4. E escolha “Módulo” no menu suspenso.
5. Em seguida, clique duas vezes no módulo para abri-lo.
6. Cole os seguintes códigos lá:

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Por fim, clique em “Executar”.

Método 4: Converter todas as notas finais em notas de rodapé em um documento via VBA

Da mesma forma, siga as mesmas etapas no método 3 para instalar e executar a macro. Mas, substitua a macro pela seguinte:

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Método 5: Converter em lote todas as notas de rodapé em notas finais em vários documentos via VBA

Caso haja um grande número de arquivos com os quais você precisa lidar, organize-os primeiro em uma pasta. Em seguida, instale e execute esta macro:

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

A execução desta macro abrirá uma caixa de entrada onde você deve inserir o caminho da pasta. E não se esqueça que deve haver um “\” no final do endereço da pasta.

Método 6: Converter em lote todas as notas finais em notas de rodapé em vários documentos via VBA

Por fim, aqui está a macro para converter notas de fim em lote em vários documentos para notas de rodapé automaticamente:

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Como corrigir problemas de palavras

A palavra pode falhar sem sinal. Embora você possa achar inacreditável que tal azar o encontre, você não tem escolha a não ser recorrer a uma ferramenta de reparo qualificada para consertar documento corrompido.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Excel danificado e pdf reparar produtos de software. Para mais informações visite www.datanumen.com