Como remover a linha separadora de nota de rodapé/nota de fim em um Documento do Word?

Quando você insere notas de rodapé ou notas de fim em um Documento do Word, uma linha separadora horizontal aparece acima do texto da nota de rodapé ou nota de fim. Se você deseja remover essa linha, experimente os métodos deste artigo.

Remover a linha separadora de nota de rodapé/nota de fim no Word

Remover a linha separadora de nota de rodapé/nota de fim com código VBA

Remover a linha separadora de nota de rodapé/nota de fim no Word

Você pode remover a linha separadora de nota de rodapé ou nota de fim no Word seguindo estes passos:

1. No documento onde você deseja remover a linha separadora de nota de rodapé ou nota de fim, clique em "Exibir" > "Rascunho".

   

2. Clique em "Referências" > "Mostrar Notas".

   

3. Se o documento contiver notas de rodapé e notas de fim, uma caixa de diálogo "Mostrar Notas" será exibida. Selecione a visualização desejada e clique em "OK". Por exemplo, escolha "Visualizar área de nota de rodapé".

   

   Nota: Se o seu documento só tiver notas de rodapé ou notas de fim, ignore esta etapa e vá para a próxima.

4. Agora, a seção "Notas" aparece no final do documento. Escolha "Separador de Nota de Rodapé" no menu suspenso "Notas de Rodapé", selecione a linha separadora e pressione a tecla Excluir.

   

5. Volte o documento para a visualização "Layout de Impressão".

   

A linha separadora foi removida do documento.

Remover linhas separadoras de nota de rodapé/nota de fim com código VBA

Se o método manual for inconveniente, você pode usar o seguinte código VBA para remover rapidamente as linhas separadoras de notas de rodapé ou de ambas as notas de rodapé e notas de fim:

1. No Documento do Word, pressione Alt + F11 para abrir a janela "Microsoft Visual Basic for Applications".
2. Na janela VBA, clique em "Inserir" > "Módulo" e cole o seguinte código no módulo.

   

   Código VBA: Remover a linha separadora de nota de rodapé de um Documento do Word

   Sub DeleteTheFootnoteSeparator()
   'Updated by ExtendOffice 20181112
       If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
       If ActiveWindow.View.SplitSpecial = wdPaneNone Then
           ActiveWindow.ActivePane.View.Type = wdNormalView
       Else
           ActiveWindow.View.Type = wdNormalView
       End If
       With ActiveWindow.ActivePane.View
           If .Type = wdPrintView Or .Type = wdWebView Or _
           .Type = wdPrintPreview Then
               ActiveWindow.View.SeekView = wdSeekFootnotes
           Else
               ActiveWindow.View.SplitSpecial = wdPaneFootnotes
           End If
       End With
       ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
       With Selection
           .MoveRight Unit:=wdCharacter
           .TypeBackspace
           .TypeBackspace
       End With
       ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
       With Selection
           .MoveRight Unit:=wdCharacter, Count:=1
           .TypeBackspace
           .TypeBackspace
           With .ParagraphFormat
               .LineSpacingRule = wdLineSpaceMultiple
               .LineSpacing = LinesToPoints(0.06)
           End With
       End With
       ActiveWindow.View.Type = wdPrintView
   End Sub

3. Pressione F5 para executar o código. Todas as linhas separadoras de notas de rodapé serão removidas instantaneamente.

Sub DeleteTheFootnoteSeparator()
'Updated by ExtendOffice 20181112
    If ActiveDocument.Footnotes.Count < 1 Then Exit Sub
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        ActiveWindow.View.Type = wdNormalView
    End If
    With ActiveWindow.ActivePane.View
        If .Type = wdPrintView Or .Type = wdWebView Or _
        .Type = wdPrintPreview Then
            ActiveWindow.View.SeekView = wdSeekFootnotes
        Else
            ActiveWindow.View.SplitSpecial = wdPaneFootnotes
        End If
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneFootnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteSeparator
    With Selection
        .MoveRight Unit:=wdCharacter
        .TypeBackspace
        .TypeBackspace
    End With
    ActiveWindow.View.SplitSpecial = wdPaneEndnoteContinuationSeparator
    With Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeBackspace
        .TypeBackspace
        With .ParagraphFormat
            .LineSpacingRule = wdLineSpaceMultiple
            .LineSpacing = LinesToPoints(0.06)
        End With
    End With
    ActiveWindow.View.Type = wdPrintView
End Sub

Melhores Ferramentas de Produtividade para Office

Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!

🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

👉 Quer experimentar esses recursos? Baixe o Kutools for Word agora! 🚀

Download Gratuito     Comprar Agora     Saiba Mais sobre o Kutools for Word

 

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

⬇️ Baixar Agora 🎁 Comprar a Suíte Completa 📖 Saiba Mais

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

• 🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
• 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
• ✏ Edição de Corpo: Localizar e Substituir em Lote / Redimensionar todas as Imagens
• 🧹 Limpeza Fácil: Remover Espaços Extras / Remover Quebras de Seção
• ➕ Inserções Criativas: Inserir Delimitadores de Milhares / Inserir Caixas de Seleção / Criar Códigos QR
• 🌍 Compatível com40+ Idiomas: Kutools fala o seu idioma – compatível com mais de40 idiomas!

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools