2 måder at kopiere tekster fra Word til Excel med hvert ord i en separat celle

I denne sost, vi er glade for at dele med dig 2 måder at kopiere tekster fra Word til Excel med hvert ord i en separat celle.

Hvis du er sprogforsker, skal du sandsynligvis tælle ordet hyppighed meget. Så skal vores emne i dag være til stor hjælp. De to nedenstående metoder giver dig mulighed for at indsætte tekster fra et dokument for at udmærke ark og liste hvert ord i en kolonnecelle.

Metode 1: Benyt muligheden "Find og erstat"

1. Til at begynde med skal du lave en kopi af tarfå dokument. Dette er ekstremt vigtigt, og vi udfører alle handlinger i kopifilen for at forhindre tab af data.
2. For det andet skal du vælge alle tarfå tekster og anvende dem i "Normal" stil. For at gøre dette skal du trykke på "Alt + Ctrl + Shift + S" for at åbne vinduet "Styles". Find og klik derefter på "Normal" stil.
3. For det tredje skal du trykke på "Ctrl + H" for at udløse feltet "Find og erstat".
4. Sæt markøren ved tekstfeltet "Find hvad", og indtast et mellemrum der.
5. Placer derefter markøren ved "Erstat med" tekstfelt og indtast "^ p" der.
6. Klik derefter på "Erstat alle".
7. Klik på "Nej" i det næste felt, der dukker op.
8. Nu kan du se, at hvert ord er i en linje. Men der er også en tom linje som følger:

Så for at fjerne det skal du påberåbe "Find og erstat" -boksen igen.

9. Denne gang indtastes "^ p ^ p" i tekstfeltet "Find hvad" og "^ p" i feltet "Erstat med".
10. Klik på "Erstat alle".
11. Tryk nu på "Ctrl + C" for at kopiere ordlisten.
12. Åbn Excel, og tryk på "Ctrl + V" for at indsætte listen.

Metode 2: Brug VBA-koder til at reducere arbejdsbyrden

1. Tilsvarende skal du først lave en kopi og vælge alle tarfå tekster.
2. Tryk derefter på “Alt + F11” for at åbne VBA-editor.
3. Klik derefter på “Normal” og “Indsæt” i rækkefølge.
4. Og vælg “Modul” for at oprette et nyt.
5. Dobbeltklik på modulet for at åbne det og indsætte følgende koder:

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. Klik derefter på knappen "Kør".
7. Dernæst vil der være et meddelelsesfelt, der angiver, hvad du skal gøre næste.
8. Åbn Excel, og tryk på "Ctrl + V" for at indsætte teksterne der. Effekten er den samme som i metode 1.

Håndter Word-dokumentfejl

Har du nogensinde været offer for Ordkorruption? I så fald vil du forstå, hvor desperat man kan blive. Derfor bliver det vigtigere end nogensinde at få et kvalificeret reparationsværktøj til at rette dit ødelagte dokument.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne xlsx og pdf produkter til reparation af software. For mere information besøg www.datanumen.com