2 manieren om teksten van Word naar Excel te kopiëren met elk woord in een aparte cel

Word-oplossingen 28 september 2025

In deze post, we zijn verheugd om 2 manieren met u te delen om teksten van Word naar Excel te kopiëren met elk woord in een aparte cel.

Als u een taalkundige bent, moet u waarschijnlijk veel tellen voor de woordfrequentie. Dan zal ons onderwerp van vandaag een grote hulp zijn. Met de 2 onderstaande methoden kunt u teksten uit een document in een Excel-blad plakken en elk woord in een kolomcel weergeven.Kopieer teksten van Word naar Excel met elk woord in een aparte cel

Methode 1: Maak gebruik van de optie "Zoeken en vervangen".

  1. Maak om te beginnen een kopie van de tardocument ophalen. Dit is uiterst belangrijk en we zullen alle bewerkingen in het kopiebestand uitvoeren om gegevensverlies te voorkomen.
  2. Ten tweede, selecteer alles tarkrijg teksten en pas ze toe met "Normale" stijl. Om dit te doen, drukt u op "Alt + Ctrl + Shift + S" om het venster "Stijlen" te openen. Zoek en klik vervolgens op de stijl "Normaal".
  3. Ten derde, druk op "Ctrl + H" om het vak "Zoeken en vervangen" te activeren.
  4. Plaats de cursor op het tekstvak "Zoeken naar" en voer daar een spatie in.
  5. Plaats vervolgens de cursor in het tekstvak "Vervangen door" en voer daar "^p" in.
  6. Klik vervolgens op "Alles vervangen".Typ een spatie in het vak "Zoeken naar"->Voer "^p" in het vak "Vervangen door" in->Klik op "Alles vervangen"
  7. Klik op "Nee" in het volgende vak dat verschijnt.Klik op "Nee"
  8. Nu kunt u zien dat elk woord op één regel staat. Maar er is ook een lege regel als volgt:Er verschijnt een lege regel

Dus om het te verwijderen, moet u het vak "Zoeken en vervangen" opnieuw oproepen.

  1. Typ deze keer "^p^p" in het tekstvak "Zoeken naar" en "^p" in het vak "Vervangen door".
  2. Klik op "Alles vervangen".Typ "^p^p" in het tekstvak "Zoeken naar"->Voer "^p" in het tekstvak "Vervangen door" in->Klik op "Alles vervangen"
  3. Druk nu op "Ctrl + C" om de woordenlijst te kopiëren.
  4. Open Excel en druk op "Ctrl + V" om de lijst te plakken.Woordenlijst in Excel-blad

Methode 2: gebruik VBA-codes om de werkdruk te verminderen

  1. Maak op dezelfde manier eerst een kopie en selecteer alles tarontvang teksten.
  2. Druk vervolgens op "Alt + F11" om de VBA-editor te openen.
  3. Klik vervolgens achtereenvolgens op "Normaal" en "Invoegen".
  4. En kies "Module" om een ​​nieuwe aan te maken.Klik op "Normaal" -> Klik op "Invoegen" -> Klik op "Module"
  5. Dubbelklik op de module om deze te openen en plak de volgende codes:
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
  1. Klik vervolgens op de knop "Uitvoeren".Plak codes-> Klik op "Uitvoeren"
  2. Vervolgens verschijnt er een berichtvenster dat aangeeft wat u vervolgens moet doen.Een berichtenbox
  3. Open Excel en druk op "Ctrl + V" om de teksten daar te plakken. Het effect is hetzelfde als dat bij methode 1.

Omgaan met Word-documentfouten

Ben je ooit het slachtoffer geworden van Woord corruptie? Als dat zo is, zult u begrijpen hoe wanhopig iemand kan worden. Daarom wordt het belangrijker dan ooit om een ​​gekwalificeerde reparatietool te krijgen om uw kapotte document te repareren.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xlsx herstellen en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.