Dans ce post, nous sommes ravis de partager avec vous 2 façons de copier des textes de Word vers Excel avec chaque mot dans une cellule séparée.
Si vous êtes linguiste, vous devez probablement faire beaucoup compter la fréquence des mots. Alors notre sujet d'aujourd'hui sera d'une grande aide. Les 2 méthodes ci-dessous vous permettront de coller des textes d'un document vers une feuille Excel et de lister chaque mot dans une cellule de colonne.
Méthode 1 : utilisez l'option "Rechercher et remplacer"
- Pour commencer, faites une copie du tarobtenir un document. Ceci est extrêmement important et nous effectuerons toutes les opérations dans le fichier de copie pour éviter toute perte de données.
- Deuxièmement, sélectionnez tout tarobtenir des textes et les appliquer avec le style "Normal". Pour ce faire, appuyez sur "Alt + Ctrl + Maj + S" pour ouvrir la fenêtre "Styles". Ensuite, recherchez et cliquez sur le style "Normal".
- Troisièmement, appuyez sur "Ctrl + H" pour déclencher la case "Rechercher et remplacer".
- Placez le curseur sur la zone de texte "Rechercher quoi" et entrez un espace à cet endroit.
- Placez ensuite le curseur sur la zone de texte "Remplacer par" et entrez "^p".
- Cliquez ensuite sur "Remplacer tout".
- Cliquez sur "Non" dans la boîte suivante qui apparaît.
- Vous pouvez maintenant voir que chaque mot est sur une seule ligne. Mais il y a aussi une ligne vide comme suit :
Donc, pour le supprimer, vous devez à nouveau invoquer la case "Rechercher et remplacer".
- Cette fois, entrez "^p^p" dans la zone de texte "Rechercher quoi" et "^p" dans la zone "Remplacer par".
- Cliquez sur "Remplacer tout".
- Appuyez maintenant sur "Ctrl + C" pour copier la liste de mots.
- Ouvrez Excel et appuyez sur "Ctrl + V" pour coller la liste.
Méthode 2 : Utiliser les codes VBA pour réduire la charge de travail
- De même, faites d'abord une copie et sélectionnez tous tarobtenir des textes.
- Appuyez ensuite sur "Alt + F11" pour ouvrir l'éditeur VBA.
- Cliquez ensuite sur "Normal" et "Insérer" dans l'ordre.
- Et choisissez "Module" pour en créer un nouveau.
- Double-cliquez sur le module pour l'ouvrir et collez les codes suivants :
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
- Cliquez ensuite sur le bouton "Exécuter".
- Ensuite, il y aura une boîte de message indiquant ce que vous devez faire ensuite.
- Ouvrez Excel et appuyez sur "Ctrl + V" pour y coller les textes. L'effet est le même que celui de la méthode 1.
Traiter les erreurs de document Word
Avez-vous déjà été victime de Corruption de mots? Si c'est le cas, vous comprendrez à quel point on peut être désespéré. Par conséquent, il devient plus important que jamais d'obtenir un outil de réparation qualifié pour réparer votre document cassé.
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer xlsx et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com