2 maneiras de copiar textos do Word para o Excel com cada palavra em uma célula separada

Neste post, temos o prazer de compartilhar com você 2 maneiras de copiar textos do Word para o Excel com cada palavra em uma célula separada.

Se você for um linguista, provavelmente precisará contar bastante a frequência de palavras. Então nosso tópico de hoje será de grande ajuda. Os 2 métodos abaixo permitem que você cole textos de um documento em uma planilha do Excel e liste cada palavra em uma célula de coluna.

Método 1: Use a opção “Localizar e substituir”

1. Para começar, faça uma cópia do tarobter documento. Isso é extremamente importante e realizaremos todas as operações no arquivo de cópia para evitar a perda de dados.
2. Em segundo lugar, selecione todos tarobter textos e aplicá-los com estilo “Normal”. Para fazer isso, pressione “Alt+Ctrl+Shift+S” para abrir a janela “Estilos”. Em seguida, localize e clique no estilo “Normal”.
3. Em terceiro lugar, pressione “Ctrl + H” para acionar a caixa “Localizar e substituir”.
4. Coloque o cursor na caixa de texto "Localizar" e insira um espaço lá.
5. Em seguida, coloque o cursor na caixa de texto “Substituir por” e digite “^p” lá.
6. Em seguida, clique em “Substituir tudo”.
7. Clique em "Não" na próxima caixa que aparece.
8. Agora você pode ver que cada palavra está em uma linha. Mas também há uma linha em branco da seguinte forma:

Portanto, para removê-lo, você precisa invocar a caixa “Localizar e substituir” novamente.

9. Desta vez, digite “^p^p” na caixa de texto “Localizar” e “^p” na caixa “Substituir por”.
10. Clique em “Substituir tudo”.
11. Agora pressione “Ctrl + C” para copiar a lista de palavras.
12. Abra o Excel e pressione “Ctrl + V” para colar a lista.

Método 2: Use códigos VBA para reduzir a carga de trabalho

1. Da mesma forma, faça uma cópia primeiro e selecione todos tarobter textos.
2. Em seguida, pressione “Alt + F11” para abrir o editor VBA.
3. Em seguida, clique em “Normal” e “Inserir” na ordem.
4. E escolha “Módulo” para criar um novo.
5. Clique duas vezes no módulo para abri-lo e cole os seguintes códigos:

Sub CopySelectParagraphWordByWordToExcel()
 
  If Selection.Range <> "" Then
    Selection.Style = ActiveDocument.Styles("Normal") 
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = " "
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^p^p"
      .Replacement.Text = "^p"
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchByte = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Copy
 
    MsgBox ("Now you can just open a Excel worksheet to paste the text")
  Else
    MsgBox ("There is no selected text ")
  End If
 
End Sub

6. Em seguida, clique no botão "Executar".
7. Em seguida, haverá uma caixa de mensagem indicando o que você precisa fazer a seguir.
8. Abra o Excel e pressione “Ctrl+V” para colar os textos lá. O efeito é o mesmo do método 1.

Lidar com erros de documentos do Word

Você já foi vítima de Corrupção de palavras? Nesse caso, você entenderá o quão desesperado alguém pode ficar. Portanto, torna-se mais importante do que nunca obter uma ferramenta de reparo qualificada para consertar seu documento quebrado.

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 recuperar xlsx e pdf reparar produtos de software. Para mais informações visite www.datanumen.com