Como converter todas as notas finais em texto simples no Word
Converter notas finais em texto será conveniente para você editá-las ou excluí-las. Por exemplo, se você deseja selecionar as notas finais com o outro texto normal de uma vez, o Word não permitirá que você faça isso. Como você pode fazer isso facilmente? Este tutorial mostrará vários métodos de conversão de notas de fim em texto simples.
Converter notas finais em texto manualmente
Converta notas finais em texto com VBA
Converta notas finais em texto com o Kutools for Word
Converter notas finais em texto manualmente
1. Posicione o cursor onde as notas finais estão localizadas e pressione Ctrl + A para selecionar todas as notas finais do documento. Veja a imagem:
2. Pressione Ctrl + C para copiar as notas finais.
3. Pressione Ctrl + End para mover o cursor para o final de todo o documento e antes das notas finais.
4. Pressione Ctrl + V para colar a nota final no final do documento. A ordem das notas finais permanecerá intacta, mas as notas finais coladas foram alteradas. Veja a imagem:
5. Substitua todos os números 1 antes do texto pela lista de números original manualmente.
Converta notas finais em texto com VBA
Resumindo, você também pode converter notas de fim em texto simples com código VBA.
1: Pressione Alt + F11 para abrir um Janela Microsoft Visual Basic for Applications;
2: Clique Módulo da inserção guia, copie e cole o seguinte código VBA no Módulo janela;
3: Clique Execute ou pressione F5 para aplicar o VBA.
O VBA que converte notas finais em texto:
Subconvertendnote ()
Dim aendnote como Endnote
Para cada nota de aendnote em ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index _
& vbTab & aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Próxima nota final
Para cada nota de aendnote em ActiveDocument.Endnotes
aendnote.Reference.Delete
Próxima nota final
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Com Selection.Find.Replacement.Font
.Sobrescrito = Verdadeiro
Terminar com
Com Seleção.
.Texto = "(a) ([0-9] {1,}) (a)"
.Replacement.Text = "\ 2" v .Forward = True
.Wrap = wdFindContinue
.Formato = Verdadeiro
.MatchWildcards = Verdadeiro
Terminar com
Selection.Find.Execute Replace: = wdReplaceAll
End Sub
Observação: Você pode alterar o início e o fim da macro para atender ao seu gosto.
Converta notas finais em texto com o Kutools for Word
Para as novas mãos de computador, o VBA é muito complexo de manusear. Mas com Kutools for Word instalado, você pode converter rapidamente todas as notas finais em texto com Convert Endnotes to Text utilitário por um clique.
Kutools for Word, com mais de funções úteis, tornam seus trabalhos mais fáceis. | ||
Depois de instalar Kutools for Word, faça o seguinte:(Baixe gratuitamente o Kutools para Word agora!)
1. Aplique este utilitário clicando em Kutools > Converter > Convert Endnotes to Text. Veja a imagem:
2. Depois de clicar Convert Endnotes to Text, você verá o resultado conforme as imagens abaixo mostram:
Demonstração: converter todas as notas finais em textos em palavras
Artigo relativo:
Navegação com guias e edição de vários documentos do Word / pastas de trabalho do Excel como Firefox, Chrome, Internet Explore 10! |
Você pode estar familiarizado com a visualização de várias páginas da web no Firefox/Chrome/IE e alternar entre elas clicando facilmente nas guias correspondentes. Aqui, o Office Tab oferece suporte a processamento semelhante, que permite navegar em vários documentos do Word ou pastas de trabalho do Excel em uma janela do Word ou janela do Excel e alternar facilmente entre eles clicando em suas guias. |